Loaded 87026 bytes for walgolt.k3
Reached end of file


=============== Second pass
===========================


   7216 W0 = E3726
   7366 Y0 = E3830
   7224 YA0 = E3732
   7266 YB0 = E3766
   7326 YC0 = E3798
    0/0: 200 260 170                                                   
                                                                       
                                                                       [ good1to12.txt 
                                                                       [ -- David H
                                                                       
                                                                       ST	0;TL99999;
                                                                       V	111; W	5;
                                                                       YA	33; YB31; YC31;
    4/0: 204 263 244|204 263 245                                       RESTART;	J	113; J	114;
                                                                       PROGRAM;
                                                                       
                                                                       (ENTRY TO TRANSLATOR);
                                                                       
V-store at 00010 = 005 010 000 004 000 000  
V-store at 00011 = 000 000 011 010 005 304                             	V0=B 0120 4000 0100 0000;	V1=B 0000 0011 0200 2704;
V-store at 00012 = 350 354 344 250 254 244  
V-store at 00013 = 150 154 144 050 050 044                             	V2=B 7216 6344 5212 6244;	V3=B 3206 6144 1202 4044;
V-store at 00014 = 260 000 000 052 056 046  
V-store at 00015 = 264 042 040 000 000 000                             	V4=B 5400 0000 1242 7046;	V5=B 5502 1040 0000 0000;
V-store at 00016 = 000 000 016 266 016 325  
V-store at 00017 = 000 000 016 326 016 365                             	V6=Q 0 / AYB0 / AYB31;	   V7=Q 0 / AYC0 / AYC31;
V-store at 00020 = 200 012 102 207 207 207  
V-store at 00021 = 171 237 172 207 207 207                             	V8=B 4000 5102 4170 3607;	V9=B 3631 7572 4170 3607;
V-store at 00022 = 110 207 207 207 207 207  
V-store at 00023 = 130 207 207 207 207 207                             	V10=B 2210 3607 4170 3607;	V11=B 2610 3607 4170 3607;
V-store at 00024 = 120 207 207 207 207 207  
V-store at 00025 = 335 207 207 207 207 207                             	V12=B 2410 3607 4170 3607;	V13=B 6730 3607 4170 3607;
V-store at 00026 = 315 207 207 207 207 207  
V-store at 00027 = 207 207 207 207 207 207                             	V14=B 6330 3607 4170 3607;	V15=B 4170 3607 4170 3607;
V-store at 00030 = 207 207 207 207 207 207  
V-store at 00031 = 207 207 207 207 207 207                             	V16=B 4170 3607 4170 3607;	V17=B 4170 3607 4170 3607;
V-store at 00032 = 207 207 207 207 207 207  
V-store at 00033 = 206 207 207 207 207 207                             	V18=B 4170 3607 4170 3607;	V19=B 4150 3607 4170 3607;
V-store at 00034 = 207 211 207 207 207 207  
V-store at 00035 = 207 207 207 207 207 207                             	V20=B 4170 4607 4170 3607;	V21=B 4170 3607 4170 3607;
V-store at 00036 = 207 207 207 207 207 207  
V-store at 00037 = 320 235 207 207 207 207                             	V22=B 4170 3607 4170 3607;	V23=B 6411 6607 4170 3607;
V-store at 00040 = 265 207 207 207 207 207  
V-store at 00041 = 207 207 207 207 207 207                             	V24=B 5530 3607 4170 3607;	V25=B 4170 3607 4170 3607;
V-store at 00042 = 207 301 261 201 207 207  
V-store at 00043 = 207 207 207 207 207 207                             	V26=B 4174 0661 4030 3607;	V27=B 4170 3607 4170 3607;
V-store at 00044 = 210 207 207 207 207 207  
V-store at 00045 = 326 207 207 207 207 207                             	V28=B 4210 3607 4170 3607;	V29=B 6550 3607 4170 3607;
V-store at 00046 = 207 302 202 242 207 207  
V-store at 00047 = 207 215 207 207 207 207                             	V30=B 4174 1202 5050 3607;	V31=B 4170 6607 4170 3607;
V-store at 00050 = 207 207 207 207 207 207  
V-store at 00051 = 207 207 207 207 207 207                             	V32=B 4170 3607 4170 3607;	V33=B 4170 3607 4170 3607;
V-store at 00052 = 207 207 207 207 207 207  
V-store at 00053 = 207 207 207 207 207 207                             	V34=B 4170 3607 4170 3607;	V35=B 4170 3607 4170 3607;
V-store at 00054 = 266 207 207 207 207 207  
V-store at 00055 = 207 207 207 207 207 207                             	V36=B 5550 3607 4170 3607;	V37=B 4170 3607 4170 3607;
V-store at 00056 = 207 207 263 223 207 207  
V-store at 00057 = 207 207 207 207 207 207                             	V38=B 4170 3663 4470 3607;	V39=B 4170 3607 4170 3607;
V-store at 00060 = 103 101 207 207 207 207  
V-store at 00061 = 260 300 360 207 207 207                             	V40=B 2064 0607 4170 3607;	V41=B 5414 0360 4170 3607;
V-store at 00062 = 207 207 207 207 207 207  
V-store at 00063 = 207 207 207 207 207 207                             	V42=B 4170 3607 4170 3607;	V43=B 4170 3607 4170 3607;
V-store at 00064 = 207 207 207 207 207 207  
V-store at 00065 = 217 207 207 207 207 207                             	V44=B 4170 3607 4170 3607;	V45=B 4370 3607 4170 3607;
V-store at 00066 = 207 271 207 207 207 207  
V-store at 00067 = 207 207 207 207 207 207                             	V46=B 4173 4607 4170 3607;	V47=B 4170 3607 4170 3607;
V-store at 00070 = 207 234 207 207 207 207  
V-store at 00071 = 207 245 207 207 207 207                             	V48=B 4171 6207 4170 3607;	V49=B 4172 2607 4170 3607;
V-store at 00072 = 207 207 207 207 207 207  
V-store at 00073 = 207 207 207 207 207 207                             	V50=B 4170 3607 4170 3607;	V51=B 4170 3607 4170 3607;
V-store at 00074 = 207 207 207 207 207 207  
V-store at 00075 = 207 225 207 207 207 207                             	V52=B 4170 3607 4170 3607;	V53=B 4171 2607 4170 3607;
V-store at 00076 = 214 207 207 207 207 207  
V-store at 00077 = 207 207 216 207 207 207                             	V54=B 4310 3607 4170 3607;	V55=B 4170 3616 4170 3607;
V-store at 00100 = 207 207 207 207 207 207  
V-store at 00101 = 207 207 207 207 207 207                             	V56=B 4170 3607 4170 3607;	V57=B 4170 3607 4170 3607;
V-store at 00102 = 207 321 241 221 207 207  
V-store at 00103 = 207 204 207 207 207 207                             	V58=B 4175 0641 4430 3607;	V59=B 4170 2207 4170 3607;
V-store at 00104 = 207 207 207 207 207 207  
V-store at 00105 = 207 207 207 207 207 207                             	V60=B 4170 3607 4170 3607;	V61=B 4170 3607 4170 3607;
V-store at 00106 = 207 262 222 322 207 207  
V-store at 00107 = 207 207 207 207 207 207                             	V62=B 4173 1222 6450 3607;	V63=B 4170 3607 4170 3607;
V-store at 00110 = 207 230 207 207 207 207  
V-store at 00111 = 205 207 207 207 207 207                             	V64=B 4171 4207 4170 3607;	V65=B 4130 3607 4170 3607;
V-store at 00112 = 207 207 207 207 207 207  
V-store at 00113 = 207 246 207 207 207 207                             	V66=B 4170 3607 4170 3607;	V67=B 4172 3207 4170 3607;
V-store at 00114 = 207 306 207 226 207 207  
V-store at 00115 = 207 224 207 207 207 207                             	V68=B 4174 3207 4550 3607;	V69=B 4171 2207 4170 3607;
V-store at 00116 = 207 303 243 203 207 207  
V-store at 00117 = 013 231 207 207 207 207                             	V70=B 4174 1643 4070 3607;	V71=B 0271 4607 4170 3607;
V-store at 00120 = 377 360 202 010 040 203  
V-store at 00121 = 000 000 000 000 000 000                             	V72=B 7777 0202 0202 0203;	V73=0;
V-store at 00122 = 000 000 000 000 000 000  
V-store at 00123 = 000 000 000 000 000 000                             	V74=0;						V75=0;
V-store at 00124 = 000 000 000 000 000 000  
V-store at 00125 = 010 175 350 227 114 364                             	V76=0;						V77=B 0207 6750 4564 6364;
V-store at 00126 = 276 351 100 206 311 357  
V-store at 00127 = 260 015 062 206 354 354                             	V78=B 5756 4500 4154 4757;	V79=B 5400 6462 4156 6354;
V-store at 00130 = 207 113 362 010 040 202  
V-store at 00131 = 000 000 000 000 000 000                             	V80=B 4164 5762 0202 0202;	V81=0;
V-store at 00132 = 010 174 241 270 371 154  
V-store at 00133 = 075 004 020 265 004 063                             	V82=B0207624156174554;		V83=B1720202055202063;
V-store at 00134 = 377 360 000 316 236 245  
V-store at 00135 = 010 174 041 312 235 071                             	V84=B7777000063517245;  V85=B0207604162516471;
V-store at 00136 = 002 150 151 260 012 156  
V-store at 00137 = 003 112 164 262 121 307                             	V86=B 0046 4151 5400 5156;	V87=B 0064 5164 5445 0707;
V-store at 00140 = 010 161 307 277 135 034  
V-store at 00141 = 000 000 000 000 000 000                             	V88=B 0207 0707 5765 6434;	V89=0;
                                                                       	
V-store at 00142 = 115 004 136 173 134 065  
V-store at 00143 = 034 053 102 256 335 320                             	V90=B2320213636656065;		V91=B0702550253556720;
V-store at 00144 = 000 000 377 377 023 040  
V-store at 00145 = 000 000 000 000 000 000                             	V92=Q 0/-1/4896;	V93=0;
V-store at 00146 = 000 000 024 074 074 141  
V-store at 00147 = 025 020 001 002 000 000                             	V94=B 0000 0024 1703 6141;	V95=B 0521 0001 0040 0000;
V-store at 00150 = 230 242 030 004 230 000  
V-store at 00151 = 044 001 000 030 004 000                             	V96=B 4612 1030 0111 4000;	V97=B 1100 0400 0600 2000;
V-store at 00152 = 242 044 011 030 001 230  
V-store at 00153 = 036 020 037 000 000 000                             	V98=B 5042 2011 0600 0630;	V99=B 0741 0037 0000 0000;
V-store at 00154 = 230 025 020 001 000 000  
V-store at 00155 = 230 025 036 020 011 000                             	V100=B 4601 2420 0020 0000;	V101=B 4601 2436 0400 4400;
V-store at 00156 = 044 011 030 001 230 242  
V-store at 00157 = 000 000 170 074 074 141                             	V102=B 1100 4430 0031 4242;	V103=B 0000 0170 1703 6141;
V-store at 00160 = 000 000 004 000 000 100  
V-store at 00161 = 000 000 000 000 000 000                             	V104=B 0000 0004 0000 0100;	V105= 0; (TEMP STORE USED BY CODE BODY);
V-store at 00162 = 033 003 000 001 041 000  
V-store at 00163 = 242 014 033 000 000 000                             V106=B 0660 1400 0022 0400;	V107=B 5040 6033 0000 0000;
V-store at 00164 = 020 043 024 037 001 230  
V-store at 00165 = 021 024 031 024 036 023                             	V108=B 0402 1424 0760 0630;	V109=B 0421 2031 0501 7023;
                                                                       	
                                                                       
                                                                       (ENTRY TO TRANSLATOR CONTINUED);
  170/0: 300 000 002|164 321|164 061|301 000 167                       		E2; SHL-24; SHL+24; =V111;
  171/4: 041|301 007 173|041|301 010 056|041|301 010 060               102;	ZERO; =V74P31; ZERO; =V4P33; ZERO; =V6P33;
  173/4: 041|301 012 107                                               		ZERO; =V7P53;
  174/2: 041|301 012 270                                               		ZERO; =V0P55;
  175/0: 041|301 004 123|041|301 004 102                               		ZERO; =V0P5; ZERO; =V0P4;
  176/2: 041|301 004 103|041|301 012 105                               		ZERO; =V1P4; ZERO; =V5P53;
  177/4: 304 000 140|170 165|304 000 141|170 162|304 377 377|170 170   		SETAV88; =RI7; SETAV89; =M7; SET-1; =C7;
  202/1: 304 377 377|301 016 010|171 176|200 336 115|300 000 141       		SET-1; =V4P114; Q7; JSP114; (TYPE OUT); V89;
  204/3: 300 000 000|304 000 001|054|200 140 311                       		E0; SET1; AND; J107NEZ; (JUMP IF SIMULATOR REQUIRED);
  206/1: 304 000 003|301 014 175|304 000 002|304 000 005|200 220 000|301 014 174
                                                                       		SET3; =V28P113; SET2; SET5; OUT; =V27P113;
                                                                       		(OPERATOR TO TYPE 10,30 OR N AND END MESSAGE);
  211/1: 164 271|304 004 120|225 020 214                               		SHL-36; SETB2120; J95=; (IF REF TABLES ON PUNCH);
  212/3: 304 004 320|036|200 140 216                                   		SETB2320; -; J109!=Z; (IF NO REF TABLES);
  213/4: 304 000 005|042|301 010 056                                   		SET5; DUP; =V4P33;
  214/5: 052|304 000 001|301 010 060                                   95;		ERASE; SET1; =V6P33; (SET REF TABLES OUTPUT MARKER);
  216/0: 304 000 003|200 220 000|301 000 145|304 000 011|200 220 000|301 000 166
                                                                       109;	SET3; OUT; =V93; SET9; OUT; =V110;
  221/0: 300 000 001|164 061|164 321|027|033                           		E1; SHL24; SHL-24; NEG; NOT;
  222/3: 304 016 216|036|170 031                                       		SETAW0; -; =RC1;
  223/3: 041|303 036 216|263 020 223|300 007 365|042|301 016 365|301 016 325
                                                                       103;	ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31;
  226/2: 300 000 016|170 176|300 014 175|164 101|164 301|301 016 260|300 014 174|164 101
                                                                       		V6; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32;
  231/4: 164 301|042|170 170|301 016 257|125 160                       		SHL-32; DUP; =C7; =YA27; PREQ7;
  233/2: 300 000 017|042|301 016 252|170 036|121 160|154 161           		V7; DUP; =YA22; =Q1; PARQ7; C7TOQ1;
  235/3: 125 020|300 000 016|301 016 253|300 016 267|042|300 016 266|042
                                                                       		PREQ1; V6; =YA23; YB1; DUP; YB0; DUP;
  240/1: 012|166 321|301 000 002|301 000 003|301 000 121|301 000 122   		PERM; SHLD-24; =E2; =E3; =V73; =V74;
                                                                       		(TRANSFER IDENT);
  242/4: 304 000 120|170 165|304 000 122|170 162                       		SETAV72; =RI7; SETAV74; =M7;
  244/2: 171 176|200 336 115                                           119;	Q7; JSP114;
  245/1: 304 000 377|042|170 042|301 016 230                           		SETB377; DUP; =M2; =YA4;
  246/4: 157 004|157 005|157 006|157 010|304 000 010|170 225           		Q0TOQ4; Q0TOQ5; Q0TOQ6; Q0TOQ8; SET8; =RI9;
  250/5: 300 000 001|164 061|164 321|027|033                           		E1; SHL24; SHL-24; NEG; NOT;
  252/2: 304 016 370|036|042|170 302|170 371                           		SETAY2; -; DUP; =M12; =RC15;
  253/5: 304 377 375|170 304|304 007 314|170 331|304 000 003           		SET-3; =I12; SET1996; =RC13; SET3;
  256/0: 170 322|157 016|304 026 306|170 342                           		=M13; Q0TOQ14; SETAY2000; =M14;
  257/3: 304 001 204|301 016 226|304 000 001|042|042|170 036|301 016 237|301 016 251|304 010 000
                                                                       		SETB604; =YA2; SET1; DUP; DUP; =Q1; =YA11; =YA21; SETB4000;
  263/1: 301 016 246|203 340 267|304 000 135|170 064|304 000 137|170 062
                                                                             =YA18; J115NTR; SETAV85; =I3; SETAV87; =M3;
  265/5: 300 016 260|170 070|171 076|200 336 115                       		YA28; =C3; Q3; JSP114;
                                                                       		(PRINT MESSAGE IF PARITY FAIL IN TITLE OF ALGOL PROG.);
  267/3: 300 016 325|300 007 365|036|201 140 274                       115;	YB31; V64P32; -; J1!=Z;
                                                                       		(JUMP TO FAIL IF ALGOL TITLE TOO LONG);
  271/1: 304 000 005|200 323 255                                       		SET5; JSP1;
  272/1: 042|304 000 046|015|304 000 267|054|224 140 275               		DUP; SETB46; NEV; SETB267; AND; J2=Z;
                                                                       		(JUMP IF DELIMITER = BEGIN OR : );
  274/1: 300 006 242|300 006 243|202 332 043                           1;		V120P29; V121P29; JS13P50;
                                                                       		(TYPE FAIL AND PRINT NO BEGIN);
  275/4: 041|304 001 256|166 361|164 101|171 302|056|042|200 331 073   2;		ZERO; SETB656; SHLD-8; SHL32; M12; +; DUP; JSP44;
  300/1: 304 000 170|301 016 230|304 000 146|036                       		SET120; =YA4; SET102; -;
  301/5: 201 140 315                                                   		J5!=Z; (JUMP TO OUT IF DELIMITER != : );
  302/2: 154 013|304 011 010|301 016 224                               		C0TOQ11; SETB4410; =YA0;
  303/4: 200 324 060|304 000 001|041|200 331 153|304 000 005|200 323 255|304 000 056|221 020 312
                                                                       3;		JSP3; SET1; ZERO; JSP47; SET5; JSP1; SET46; J4=;
                                                                       		(JUMP IF DELIMITER = BEGIN);
  307/2: 304 000 146|036|224 140 303|201 260 274                       		SET102; -; J3=Z; (jump if delimiter = :); J1;
  311/0: 052|200 334 255|200 260 216                                   107;	ERASE; JSP113; J109;
  312/1: 052|041|304 002 135|166 357                                   4;		ERASE; ZERO; SETB1135; SHLD-9;
  313/2: 200 330 165|041|301 016 224|041|301 016 234                   		JSP36; ZERO; =YA0; ZERO; =YA8; (RETURN TO OUT);
                                                                       (MAIN LOOP);
                                                                       
  315/1: 224 240 316|304 001 377|200 260 325                           5;		J105EN; SETB777; J7;
  316/4: 304 000 005|200 323 255|304 000 157|204 020 321|304 000 205|200 260 325
                                                                       105;	SET5; JSP1; SETB157; J6!=; SET133; J7;
  321/4: 200 333 377                                                   6;		JSP101;
  322/1: 042|304 000 037|054                                           		DUP; SETB37; AND;
  323/0: 200 333 367                                                   *;		JSP100;
                                                                       (TREE);
  323/3: 203 260 363|200 260 325                                       		J8; J7;
  324/3: 304 000 055                                                   		SET45;
                                                                       		
  325/0: 200 264 124                                                   7;		JP5;
  325/3: 200 324 206|201 260 315                                       		JSP6; J5;
  326/3: 300 016 224|204 261 173                                       		YA0; J18;
  327/3: 203 261 313|200 260 325                                       		J39; J7;
  330/3: 300 016 224|200 261 171                                       		YA0; J17;
  331/3: 304 004 004|300 016 224|200 325 015|201 260 315|204 260 367|200 260 325
                                                                       		SETB2004; YA0; JSP16; J5; J9; J7;
  334/3: 052|100 376|042|167 021|200 325 250|201 260 315               		ERASE; M14M15; DUP; SHC8; JSP21; J5;
  336/3: 200 325 367|201 260 315|171 030|017|200 262 375               		JSP25; J5; C1; DUMMY; J67;
  340/3: 200 325 223|201 260 315                                       		JSP20; J5;
  341/3: 200 324 045|201 260 315                                       		JSP2; J5;
  342/3: 304 000 055|200 260 325                                       		SET45; J7;
  343/3: 171 030|220 040 325|017|200 325 035|201 260 315               		C1; J7<Z; DUMMY; JSP17; J5;
  345/3: 200 324 250|201 260 315                                       		JSP9; J5;
  346/3: 200 324 356|201 260 315                                       		JSP14; J5;
  347/3: 200 325 276|201 260 315                                       		JSP22; J5;
  350/3: 200 325 341|201 260 315                                       		JSP24; J5;
  351/3: 200 324 277|201 260 315                                       		JSP10; J5;
  352/3: 304 000 177|204 263 203                                       		SET127; J92;
  353/3: 200 326 003|201 260 315                                       		JSP26; J5;
  354/3: 260 020 325|300 016 231|200 325 201|201 260 315               		J7C1NZ; YA5; JSP19; J5;
  356/3: 200 325 110|201 260 315                                       		JSP18; J5;
  357/3: 200 325 305|201 260 315                                       		JSP23; J5;
  360/3: 300 016 233|200 261 200                                       		YA7; J20;
  361/3: 200 324 305|201 260 315                                       		JSP11; J5;
  362/3: 304 000 001|203 263 116                                       		SET1; J81;
                                                                       (SCALAR);
  363/3: 304 000 033|300 016 224|200 140 325                           8;		SET27; YA0; J7!=Z; (JUMP TO FAIL IF T!=0);
  365/0: 052|164 377|304 011 224|056|301 016 224                       		ERASE; SHL-1; SETB4624; +; =YA0;
  366/4: 200 327 053|201 260 315                                       		JSP30; J5; (RETURN TO OUT);
                                                                       (END);
  367/4: 300 016 224|200 140 325                                       9;		YA0; J7!=Z; (FAIL IF T != 0);
  370/4: 052|200 330 227                                               		ERASE; JSP39; (END STATE);
  371/2: 304 000 001|200 330 171|200 333 021|304 000 316|203 021 020   10;		SET1; JSP37; JSP58; SET206; J14!=; (IF TS != PROC BEGIN(BL));
  373/5: 304 000 001|200 332 110                                       		SET1; JSP53;
  374/5: 141 360|304 000 001|172 370|100 376|301 016 240               		M-I15; SET1; =+C15; M14M15; =YA12; (RESTORE NL);
  376/5: 052|041|050|101 376                                           		ERASE; ZERO; CONT; =M14M15; (REMOVE BL FROM TS);
  377/4: 041|304 000 001|301 004 123                                   11;		ZERO; SET1; =V0P5; (SET END COMMENT MARKER);
  400/5: 304 000 001|301 016 262                                       		SET1; =YA30; (SV := 1);
  401/5: 304 000 004|200 323 255|304 000 157|220 021 011|042|304 000 150|015|304 000 356
                                                                       12;		SET4; JSP1; SETB157; J106=; DUP; SETB150; NEV; SETB356;
  405/1: 054|220 141 012                                               		AND; J13=Z; (JUMP IF DELIMITER = END,ELSE OR SEMI COLON);
  405/5: 065|205 141 001                                               		REV; J12*NEZ; (JUMP IF NOT FIRST TIME ROUND LOOP);
  406/3: 304 000 001|300 006 213|300 006 214|202 332 047|205 261 001   		SET1; V97P29; V98P29; JS15P50; (PRINT END COMMENT); J12;
  411/0: 304 000 205|200 264 124                                       106;	SET133; JP5;
  412/0: 041|301 004 123                                               13;		ZERO; =V0P5; (CLEAR END COMMENT MARKER);
  412/4: 065|052|154 001|304 000 151|204 020 321                       		REV; ERASE; C0TOQ1; SETB151; J6*NE; (OUT2 IF DELIMITER *NE ELSE);
  414/2: 300 016 254|224 140 321|100 376|167 021|304 017 377|054|304 001 155|036|224 140 321
                                                                       		YA24; J6=Z; M14M15; SHC8; SETB7777; AND; SETB555; -; J6=Z;
  417/5: 052|201 260 315                                               		(OUT2 IF TS=THENS); ERASE; J5; (OUT);
  420/3: 304 000 256|036|201 141 023                                   14;		SET174; -; J15*NEZ; (JUMP IF TS*NEBEGIN BL);
  421/4: 042|041|041|200 332 056|201 261 027                           		DUP; ZERO; ZERO; JSP52; J19;
  423/1: 047|052|042|164 261|304 000 056                               15;		STR; ERASE; DUP; SHL-40; SET46;
  424/3: 036|304 000 022|065|200 140 325                               		-; SET18; REV; J7*NEZ; (JUMP IF TS = OTHER);
  425/5: 141 360|304 000 001|172 370                                   		M-I15; SET1; =+C15;
  427/0: 052                                                           		ERASE;
  427/1: 042|164 021|201 041 031                                       19;		DUP; SHL8; J16>=Z; (JUMP IF MARKER L NOT SET);
  430/1: 042|041|041|200 332 056                                       		DUP; ZERO; ZERO; JSP52;
                                                                       		
  431/1: 052|264 340 377|171 116|164 021|164 261|304 000 157|036|203 141 167
                                                                       16;		ERASE; J11C14NZ; Q4; SHL8; SHL-40; SETB157; -; J90*NEZ;
                                                                       		(IF FINAL END NOT FOLLOWED BY END MESSAGE);
  434/0: 300 016 260|170 151|300 016 256|203 141 115                   		YA28; =RC6; YA26; J112*NEZ; (IF FAIL SET);
  435/5: 300 016 265|223 141 062                                       		YA33; J157=Z; (IF NO CODE PROCEDURES);
  436/5: 304 000 075|300 000 000|304 000 040|054|220 140 325|052       		SET61; E0; SETB40; AND; J7=Z; ERASE;
  441/1: 300 000 162|304 000 005|200 324 330|300 016 265|027|033|200 324 346
                                                                       		V106; SET5; JS1P12; YA33; NEG; NOT; JSP13;
  444/0: 304 000 230|200 324 327|041|300 016 265                       		SETB230; JSP12; ZERO; YA33;
  445/4: 065|304 000 041|200 324 327|042|200 324 346|300 000 163|304 000 003|200 324 330
                                                                       156;	REV; SETB41; JSP12; DUP; JSP13; V107; SET3; JS1P12;
  451/0: 042|304 001 056|056|200 324 346|304 000 230|200 324 327       		DUP; SET302; +; JSP13; SETB230; JSP12;
  453/2: 033|027|065|027|033|042|204 141 045                           		NOT; NEG; REV; NEG; NOT; DUP; J156*NEZ;
  454/5: 052|052|300 000 164|304 000 006|200 324 330                   		ERASE; ERASE; V108; SET6; JS1P12;
  456/4: 300 000 165|304 000 006|200 324 330|304 230 276|164 101|304 000 002|200 324 330
                                                                       		V109; SET6; JS1P12; SETB114276; SHL32; SET2; JS1P12;
  462/0: 202 324 341                                                   		JS7P12;
  462/3: 171 322|042|170 071|301 016 370|300 016 237|301 016 367|300 016 236|301 016 366
                                                                       157;	M13; DUP; =RC3; =Y2; YA11; =Y1; YA10; =Y0;
  465/5: 300 000 000|304 000 020|054|202 141 076|300 000 122|301 016 365|300 000 121|301 016 364
                                                                       		E0; SETB20; AND; J97!=Z; V74; =Y-1; V73; =Y-2;
  471/3: 151 323|145 060|304 000 003|172 070                           		M13TOQ3; I3=-1; SET3; =+C3;
  473/0: 300 000 144|170 156|171 062|172 142                           		V92; =Q6; M3; =+M6;
  474/3: 302 076 366|103 140|263 061 074|203 261 115                   96;		Y0M3Q; =M0M6Q; J96C3NZ; J112;
  476/2: 304 000 121|170 144|304 000 124|170 142|171 156|200 336 115   97;		SETAV73; =I6; SETAV76; =M6; Q6; JSP114;
  500/5: 304 016 216|042|170 144|170 142|171 150|300 000 000|304 000 010|054|225 141 111
                                                                       		SETAW0; DUP; =I6; =M6; C6; E0; SETB10; AND; J108=Z;
                                                                       		(JUMP FOR OUTPUT OF BINARY OBJECT PROGRAM);
  504/1: 302 076 366|200 334 077|052|171 070|201 041 104               101;	Y0M3Q; JSP125; ERASE; C3; J101>=Z;
  506/1: 052|304 000 075|301 016 216|171 156|200 336 115               		ERASE; SETB75; =W0; Q6; JSP114; (OUTPUT OBJ. PROG. INSYLL. OCTAL);
  510/1: 154 006|171 156|200 336 115|202 261 116                       		C0TOQ6; Q6;JSP114; J121;
  511/5: 302 076 366|301 016 216|171 156|200 336 115|171 070|205 041 111|052|154 006|202 261 116
                                                                       108;	Y0M3Q; =W0; Q6; JSP114; C3; J108>=Z; ERASE; C0TOQ6; J121;
  515/3: 300 016 260|170 150                                           112;	YA28; =C6;
  516/2: 304 016 217|170 144|304 016 223|170 142                       121;	SETAW1; =I6; SETAW5; =M6;
  520/0: 304 000 003|200 220 000|300 000 145|036|161 321|304 000 074|044|200 334 117
                                                                       		SET3; OUT; V93; -; SHA-24; SET60; /I; JSP127;
  523/1: 300 014 115|164 015|065|200 334 117|300 014 115|164 061|300 000 133|011|011|301 016 220
                                                                       		V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W2;
  526/5: 304 000 011|200 220 000|300 000 166|036|161 321|304 000 074|044|200 334 117
                                                                       		SET9; OUT; V110; -; SHA-24; SET60; /I; JSP127;
  532/0: 300 014 115|164 015|065|200 334 117|300 014 115|164 061|300 000 133|011|011|301 016 221
                                                                       		V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W3;
  535/4: 300 000 132|301 016 217|300 000 134|301 016 222|171 024|200 334 117|300 014 115|164 015|304 000 002|301 016 223
                                                                       		V82; =W1; V84; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5;
  542/2: 300 016 223|011|301 016 223|241 141 145|171 156|200 336 115|154 006
                                                                       		W5; OR; =W5; J91C6Z; Q6; JSP114; C0TOQ6;
  545/1: 171 156|200 336 115|304 000 010|042|042|164 041|011|164 041|011
                                                                       91;		Q6; JSP114; SETB10; DUP; DUP; SHL16; OR; SHL16; OR;
  547/5: 304 000 010|200 220 000                                       		SET8; OUT;
  550/5: 300 010 056|170 150|245 141 155|171 156|200 336 115           		V4P33; =C6; J120C6Z; Q6; JSP114;
  553/0: 304 000 030|042|042|164 041|011|164 041|011                   		SETB30; DUP; DUP; SHL16; OR; SHL16; OR;
  554/5: 304 000 010|200 220 000                                       		SET8; OUT;
  555/5: 300 016 257|304 000 006|200 220 000|300 014 254|225 141 161   120;	YA27; SET6; OUT; V75P113; J122=Z;
  560/2: 300 016 260|304 000 006|200 220 000                           		YA28; SET6; OUT;
  561/5: 300 016 256|300 000 000|304 000 020|054|011|204 140 171       122;	YA26; E0; SETB20; AND; OR; J102!=Z;
                                                                       		(IF FAIL SET OR NOT LOAD AND GO);
  564/1: 300 000 142|300 000 143|164 061|164 321|300 000 167|011       		V90; V91; SHL+24; SHL-24; V111; OR;
                                                                       		(CONTROL ROUTINE IDENT);
  566/3: 304 000 001|200 220 000                                       		SET1; OUT; (ENTER CONTROL ROUTINE);
  567/3: 300 006 216|300 006 217|202 332 043                           90;		V100P29; V101P29; JS13P50; (if no end message after prog);
                                                                       
                                                                       (OWN);
  571/0: 300 016 225|011|200 140 325                                   17;		YA1; OR; J7NEZ; (jump to fail if T or D != 0);
  572/1: 301 016 225|200 327 053|201 260 315                           		=YA1; JSP30; J5;
                                                                       
                                                                       		(SWITCH);
  573/4: 300 016 225|011|200 140 325                                   18;	YA1; OR; J7!=Z; (jump if T or D != 0 );
  574/5: 052|304 005 010|301 016 224                                   		ERASE; SETB2410; =YA0;
  576/0: 304 001 010|301 016 226|200 327 053|201 260 315               		SETB410; =YA2; JSP30; J5;
                                                                       (RIGHT ROUND BRACKET );
                                                                       
  600/0: 065|052|200 141 212                                           20;		REV; ERASE; J24!=Z; (jump if PROC = 1 );
  600/5: 171 022|224 141 202|304 000 125                               		M1; J22=Z; (JUMP IF E = 0); SET85;
  602/1: 200 260 325                                                   21;		J7;
  602/4: 304 000 001|200 330 276|304 000 002|200 330 171|304 000 126|100 376|041|166 021|065
                                                                       22;		SET1; JSP41; SET2; JSP37; SET86; M14M15; ZERO; SHLD8; REV;
  606/1: 164 321|301 016 233|304 000 163|036|201 141 202               		SHL-24; =YA7; SET115; -; J21!=Z; (JUMP TO FAIL IF TS !=BRACKET);
  610/1: 052|141 360|304 000 001|172 370                               		ERASE; M-I15; SET1; =+C15;
  611/3: 201 260 315                                                   23;		J5;
  612/0: 200 332 326                                                   24;		JSP57;
  612/3: 154 013                                                       25;		C0TOQ11;
  612/5: 100 376|042|164 261|304 000 163|222 021 233                   26;		M14M15; DUP; SHL-40; SET115; J28=; (JUMP IF TS=LEFT BRACKET);
  614/4: 042|304 000 201|042                                           		DUP; SETB201; DUP;
  615/3: 066|054|015|304 000 127|065|201 141 202|052|171 042|036       		CAB; AND; NEV; SET87; REV; J21!=Z; ERASE; M2; -;
  617/5: 201 141 230|164 321|170 262|300 276 367|170 076|171 064       		J27!=Z; SHL-24; =M11; Y1M11; =Q3; I3;
  622/1: 304 000 001|200 331 130|042|170 064|171 076|042               		SET1; JSP45; DUP; =I3; Q3; DUP;
  624/1: 222 041 226|171 062|202 141 226|065|170 062|171 076           		J32<Z; M3; J32!=Z; (JUMP IF USED ENTRY); REV; =M3; Q3;
  626/2: 301 276 367|052|164 101|171 042|166 361|052                   32;		=Y1M11; ERASE; SHL32; M2; SHLD-8; ERASE;
  630/1: 304 000 004|200 330 115|141 360|304 000 001|042|172 370|172 270|205 261 212
                                                                       27;		SET4; JSP34; M-I15; SET1; DUP; =+C15; =+C11; J26;
  633/2: 167 361|036|164 341|301 016 233|141 360|304 000 001|172 370|100 376
                                                                       28;		SHC-8; -; SHL-16; =YA7; M-I15; SET1; =+C15; M14M15;
  636/1: 170 076|151 061|171 064|301 016 226|171 070|301 016 241|141 360|304 000 001|172 370
                                                                       		=Q3; M3TOQ1; I3; =YA2; C3; =YA13; M-I15; SET1; =+C15;
  641/4: 100 376|301 016 227|141 360|304 000 001|172 370|304 000 015|200 330 171|304 000 001
                                                                       		M14M15; =YA3; M-I15; SET1; =+C15; SET13; JSP37; SET1;
  645/1: 200 331 130|200 331 140|171 262|301 012 105|171 156|301 016 216|042|170 156
                                                                       		JSP45; JSP46; M11; =V5P53; Q6; =W0; DUP; =Q6;
  650/2: 202 141 303|042|170 142|300 016 243                           		J35!=Z; (JUMP IF X != 0); DUP; =M6; YA15;
  651/5: 170 063|171 270|170 064|171 076                               		=RM3; C11; =I3; Q3;
  653/1: 304 004 004|042|300 016 224|054|015|205 141 255|304 000 001|011
                                                                       29;		SETB2004; DUP; YA0; AND; NEV; J30!=Z; SET1; OR;
  655/5: 304 001 000|164 041|011|301 276 366|304 002 004|171 022|201 141 262
                                                                       30;		SETB400; SHL16; OR; =Y0M11; SETB1004; M1; J31!=Z; (IF E=1);
  660/4: 171 156|221 041 262                                           		Q6; J31<Z; (IF DECLARED ENTRY);
  661/3: 300 016 226|011                                               		YA2; OR;
  662/1: 304 000 130|171 156|164 301|304 014 013|054|200 140 325       31;		SET88; Q6; SHL-32; SETB6013; AND; J7!=Z; (IF ABFH OR J = 1);
  664/3: 052|164 101|171 156|011|042|170 156|222 041 305               		ERASE; SHL32; Q6; OR; DUP; =Q6; J36<Z; (IF DECLARED ENTRY);
  666/3: 157 143|170 144                                               		Q6TOQ3; =I6;
  667/1: 304 000 023                                                   33;		SET19;
  667/4: 170 070|171 270|164 021|170 062|171 076|164 021|304 000 004|200 330 115|171 156
                                                                       34;		=C3; C11; SHL8; =M3; Q3; SHL8; SET4; JSP34; Q6;
  673/0: 301 276 367|171 022|041|301 012 105|300 016 216|170 156|221 140 315|041|304 001 124
                                                                       		=Y1M11; M1; ZERO; =V5P53; W0; =Q6; J5=Z; ZERO; SETB524;
  676/3: 166 361|200 330 115|041|200 323 255|042                       		SHLD-8; JSP34; ZERO; JSP1; DUP;
  700/1: 304 000 150|015|304 000 356|054|304 000 131|065|200 140 325   		SETB150; NEV; SETB356; AND; SET89; REV; J7!=Z;
                                                                       		(JUMP TO FAIL IF DELIMITER != END,ELSE OR SEMI COLON);
  702/4: 052|204 260 321                                               		ERASE; J6;
  703/2: 300 276 366|042|170 076|200 331 223|201 261 253               35;		Y0M11; DUP; =Q3; JSP48; J29;
  705/2: 052|171 022|201 141 310|304 000 132|171 156|164 017|200 040 325|052
                                                                       36;		ERASE; M1; J37!=Z; (JUMP IF E=1); SET90; Q6; SHL7; J7GEZ; ERASE;
  710/1: 171 076|221 041 312|171 142|170 064|201 261 267               37;		Q3; J38<Z; (JUMP IF F COL =1); M6; =I3; J33;
  712/1: 152 143|304 000 063|204 261 267                               38;		I6TOQ3; SET51; J34;
                                                                       (PROCEDURE);
  713/3: 304 000 001|301 016 255                                       39;		SET1; =YA25; (PH := 1);
  714/3: 200 327 053|052|304 000 133|300 016 225|200 140 325           		JSP30; ERASE; SET91; YA1; J7!=Z; (FAIL IF D != 0);
  716/4: 300 016 224|304 010 004|043                                   		YA0; SETB4004; DUPD;
  717/5: 015|054|222 141 321|200 140 325|042                           		NEV; AND; J40=Z; J7!=Z; DUP;
  721/2: 052|052|200 331 063|304 000 001|200 323 255|304 000 001       40;		ERASE; ERASE; JSP43; SET1; JSP1; SET1;
  723/4: 200 331 130|304 116 000|164 041|056|164 041                   		JSP45; SETB47000; SHL16; +; SHL16;
  725/3: 300 016 254|164 011|011|041|301 016 254                       		YA24; SHL4; OR; ZERO; =YA24; (R := 0);
  727/1: 304 001 000|164 021|300 016 235|056|164 041|300 016 240       		SETB400; SHL8; YA9; +; SHL16; YA12;
  731/3: 056|304 000 002|200 330 165|202 324 062                       		+; SET2; JSP36; JS1P3;
  733/1: 041|301 016 235|171 350|033|027|042                           		ZERO; =YA9; C14; NOT; NEG; DUP;
  734/4: 170 350|042|167 363|220 040 325|052                           		=C14; DUP; SHC-7; J7<Z; (FAIL IF N>63); ERASE;
  736/1: 154 013|041|033|301 016 234|041|200 330 143                   		C0TOQ11; ZERO; NOT; =YA8; ZERO; JSP35;
  740/0: 304 000 170|201 021 357                                       		SET120; J41!=; (JUMP IF DELIMITER != SEMI COLON);
  741/0: 300 016 224|304 010 005|011|301 016 224|052|304 000 002|041|200 331 153|171 302|301 016 240
                                                                       		YA0; SETB4005; OR; =YA0; ERASE; SET2; ZERO; JSP47; M12; =YA12;
  744/5: 300 276 370|301 316 370                                       		Y2M11; =Y2M12;
  745/5: 300 276 367|301 316 367|300 276 366                           		Y1M11; =Y1M12; Y0M11;
  747/2: 164 377|164 003|303 316 366|041|304 004 025|166 361           		SHL-1; SHL1; =Y0M12Q; ZERO; SETB2025; SHLD-8;
  751/3: 200 330 115|300 016 245|304 000 012|166 121|304 000 007|200 330 115
                                                                       		JSP34; YA17; SET10; SHLD40; SET7; JSP34;
  754/2: 041|301 016 255                                               		ZERO; =YA25; (PH := 0);
  755/0: 041|301 016 224|304 000 005|200 323 255|200 262 154           		ZERO; =YA0; SET5; JSP1; J66; (TO CHECK DELIMITER = KDF9);
  757/1: 304 000 163|065|200 020 325|052|300 016 224|304 007 377|054   41;		SET115; REV; J7!=; ERASE; YA0; SETB3777; AND;
  761/4: 304 002 004|011|301 016 224|200 331 140|301 016 216|171 262   		SETB1004; OR; =YA0; JSP46; =W0; M11;
  764/1: 301 016 217|171 302|301 016 240|300 276 370|301 316 370|300 016 243|303 316 366|304 000 001|301 016 233
                                                                       =W1; M12; =YA12; Y2M11; =Y2M12; YA15; =Y0M12Q; SET1; =YA7;
  770/3: 304 000 001|042|172 270|200 323 255|200 331 140|304 000 134|065
                                                                       42;		SET1; DUP; =+C11; JSP1; JSP46; SET92; REV;
  773/1: 200 140 325|052|304 000 077|300 016 235|304 000 003|056|042|171 350
                                                                       		J7!=Z; (FAIL IF X!=0); ERASE; SET63; YA9; SET3; +; DUP; C14;
  776/0: 164 025|056|164 041|041|033|050|301 276 367                   		SHL10; +; SHL16; ZERO; NOT; CONT; =Y1M11;
  777/5: 042|027|033|301 016 235|304 374 000|054                       		DUP; NEG; NOT; =YA9; SETB176000; AND;
 1001/3: 200 140 325|052|300 016 243|041|033|050                       		J7!=Z; (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT;
 1003/1: 301 276 366|304 000 175|225 022 006|304 000 173|036|223 141 370
                                                                       		=Y0M11; SET125; J43=; SET123; -; J42=Z; (JUMP IF DEL =,);
 1005/5: 304 000 135|200 260 325                                       		SET93; J7;
 1006/5: 052|304 000 001|200 331 130|304 116 000|164 041|056|164 041|101 376
                                                                       43;		ERASE; SET1; JSP45; SETB47000; SHL16; +; SHL16; =M14M15;
 1011/4: 300 016 217|170 262|304 000 002|300 016 216|042|205 142 014   		W1; =M11; SET2; W0; DUP; J44!=Z; (JP IF X=0);
 1014/1: 041|301 276 366                                               		ZERO; =Y0M11;
 1014/5: 171 042|200 331 153|304 004 025|164 061|171 270|056           44;		M2; JSP47; SETB2025; SHL24; C11; +;
 1017/0: 041|166 041|200 330 115|300 276 370|042|304 000 012           		ZERO; SHLD16; JSP34; Y2M11; DUP; SET10;
 1021/1: 166 121|304 000 007|200 330 115|300 016 240|170 062|301 076 370|300 276 367
                                                                       		SHLD40; SET7; JSP34; YA12; =M3; =Y2M3; Y1M11;
 1024/2: 301 076 367|300 276 366|164 377|164 003|301 076 366|041       		=Y1M3; Y0M11; SHL-1; SHL1; =Y0M3; ZERO;
 1026/4: 301 016 233|041|301 016 224|304 000 170|041|200 323 255       		=YA7; ZERO; =YA0; SET120; ZERO; JSP1;
 1031/0: 200 020 325                                                   		J7!=; (FAIL IF DELIMITER != SEMI COLON);
 1031/3: 304 377 377|301 016 255                                       		SET-1; =YA25; (PH := -1);
 1032/3: 041|200 323 255                                               		ZERO; JSP1;
 1033/1: 304 000 101|203 022 045                                       		SET65; J46!=; (JUMP IF DEL != VALUE);
 1034/1: 052|304 000 001|200 323 255|200 331 140|052|304 000 136       45;		ERASE; SET1; JSP1; JSP46; ERASE; SET94;
 1036/3: 300 276 366|043|200 040 325|052|041                           		Y0M11; DUPD; J7>=Z; (FAIL IF F COL =0); ERASE; ZERO;
 1040/0: 050|304 001 000|164 061|056|301 276 366|052|304 000 173       		CONT; SETB400; SHL24; +; =Y0M11; ERASE; SET123;
 1042/2: 221 022 034|304 000 137|065|304 000 170|036|200 140 325       		J45=; (JUMP IF DEL = ,); SET95; REV; SET120; -; J7!=Z;
 1044/4: 052|041|200 323 255                                           		(FAIL IF DEL= OTHER); ERASE; ZERO; JSP1;
 1045/3: 042|304 000 037|054|202 142 050|164 377                       46;		DUP; SETB37; AND; J47!=Z; (JUMP IF DEL!=SCALAR); SHL-1;
 1047/1: 304 011 224|056|203 262 057                                   		SETB4624; +; J49;
 1050/2: 304 000 201|201 022 052|164 365|203 262 057                   47;		SET129; J48!=; (JUMP IF DEL!=STRING); SHL-6; J49;
 1052/1: 042|164 373|225 142 054|065|224 142 116                       48;		DUP; SHL-3; J55=Z; (JUMP IF DEL = SPECIFIER); REV; J56=Z;
 1053/5: 304 000 140|200 260 325                                       		SET96; J7; (FAIL IF DEL!=SPECIFIER IN SPEC. PART);
 1054/5: 164 011|170 070|300 000 010|300 000 011                       55;		SHL4; =C3; V0; V1;
 1056/3: 166 060|164 301|065|052                                       		SHLDC3; SHL-32; REV; ERASE;
 1057/3: 301 016 224|304 000 005|200 323 255|304 000 141|171 030|220 040 325|052
                                                                       49;		=YA0; SET5; JSP1; SET97; C1; J7<Z; (FAIL IF M=-1); ERASE;
 1062/3: 264 022 074|304 000 142|304 010 004|042|300 016 224|015|054   		J52C1NZ; (JUMP IF M=1); SET98; SETB4004; DUP; YA0; NEV; AND;
 1065/0: 200 140 325|052|300 016 224|304 010 000|033|054|065|304 000 004
                                                                       		J7!=Z; ERASE; YA0; SETB4000; NOT; AND; REV; SET4;
 1067/4: 220 022 073|304 000 143|065|304 000 002|036|200 140 325       		J50=; (JUMP IF DEL=PROCEDURE); SET99; REV; SET2; -; J7!=Z;
 1072/0: 052|304 004 000|011|042                                       		(FAIL IF DEL!=ARRAY); ERASE; SETB2000; OR; DUP;
 1073/0: 052|301 016 224                                               50;		ERASE; =YA0;
                                                                       
                                                                       
                                                                       
                                                                       [ good13.txt 
                                                                       [ -- David H
                                                                       
 1073/4: 304 000 001|200 323 255                                       51;   SET1; JSP1;
 1074/4: 200 331 140|042|304 000 136|065|220 140 325                   52;   JSP46; DUP; SET94; REV; J7=Z; (fail if non-formal specified);
 1076/3: 052|042|041|050|164 301|304 000 144|065|200 140 325              ERASE; DUP; ZERO; CONT; SHL-32; SET100; REV; J7!=Z;
 1100/4: 052|300 016 224|042|012|164 101|011                              (fail if type col =0); ERASE; YA0; DUP; PERM; SHL32; OR;
 1102/1: 301 276 367|304 004 010|043|015|054|304 000 001|065|225 142 106
                                                                          =Y1M11; SETB2010; DUPD; NEV; AND; SET1; REV; J53=Z;
 1104/5: 052|171 042|042|066|164 353                                      ERASE; M2; DUP; CAB; SHL-11;
 1106/0: 225 142 106|052|041                                              J53=Z; ERASE; ZERO;
 1106/5: 164 041|300 276 366|011|301 276 366|052|304 000 170           53;   SHL16; Y0M11; OR; =Y0M11; ERASE; SET120;
 1111/0: 224 022 113|304 000 173|036|224 142 073|304 000 145|200 260 325
                                                                          J54=; SET123; -; J51=Z; SET101; J7;
                                                                       
                                                                          (procedure cont'd);
 1113/4: 052|041|301 016 224|052|041|304 000 005|200 323 255|243 022 045|065|052
                                                                       54;   ERASE; ZERO; = YA0; ERASE; ZERO; SET5; JSP1; J46C1Z; REV; ERASE;
                                                                          (to test if del=specifier);
 1116/4: 171 302|301 016 216|300 016 240|170 302                       56; M12; =W0; YA12; =M12;
 1120/2: 041|301 016 255                                                  ZERO; = YA25; (PH := 0);
 1121/0: 140 300|171 302|042|301 012 105|300 016 216|036|220 142 154   57;   M+I12; M12; DUP; =V5P53; W0; -; J66=Z;  (jump if I=NLP);
 1123/3: 300 316 367|041|050                                              Y1M12; ZERO; CONT;
 1124/2: 164 301|042|304 000 147|065|224 142 130|052                      SHL-32; DUP; SET103; REV; J58=Z; ERASE;
 1126/1: 300 316 366|221 042 145                                          Y0M12; J63<Z; (if f col = 1);
 1127/1: 042|164 357|200 142 132|304 000 151                              DUP; SHL-9; J59!=Z; SET105;
 1130/4: 300 016 216|170 302|200 264 124                               58;   W0; = M12; JP5;
 1132/0: 042|167 371|203 042 140|164 353|304 000 151|065|224 142 130|052
                                                                       59;   DUP; SHC-4; J61>=Z; SHL-11; SET105; REV; J58=Z; ERASE;
 1134/4: 300 316 366|041                                                  Y0M12; ZERO;
 1135/2: 033|050|301 316 366|304 000 240                                  NOT; CONT; =Y0M12; SET160;
 1136/4: 164 121                                                       64;  SHL40;
 1137/0: 304 000 001|200 330 115|200 262 121                           60;   SET1; JSP34; J57;
                                                                       
                                                                       
                                                                       [ good14.txt 
                                                                       [ -- David H
                                                                       
 1140/3: 300 000 012                                                   61;   V2;
 1141/0: 065|164 377|304 000 030|043|054|170 070|065|164 363|054       62;   REV; SHL-1; SETB30; DUPD; AND; =C3; REV; SHL-7; AND;
 1143/2: 042|042|056|056|172 070|164 060|200 262 137                      DUP; DUP; +; +; =+C3; SHLC3; J60;
 1145/1: 042|304 000 012|054|204 142 152|042|164 357|300 000 013       63;   DUP; SETB12; AND; J65!=Z; DUP; SHL-9; V3;
 1147/3: 065|200 142 141|052|042                                          REV; J62!=Z; ERASE; DUP;
 1150/3: 304 001 000|054|164 007|011|300 000 014|200 262 141              SETB400; AND; SHL3; OR; V4; J62;
 1152/4: 164 365|300 000 015|200 262 141                               65;   SHL-6; V5; J62;
 1154/0: 041|301 012 105|304 000 041|204 020 321                       66;   ZERO; =V5P53; SET33; J6!=;
                                                                       
                                                                          (CODE BODY);
 1155/4: 052|300 016 265|203 142 173                                      ERASE; YA33; J151!=Z; (if not first code procedure);
 1156/5: 041|301 004 325|304 000 006|301 004 326                          ZERO; =V0P12; SET6; =V1P12;
 1160/3: 304 000 021|200 324 327|304 000 035|200 324 327                  SETB21; JSP12; SETB35; JSP12;
 1162/3: 304 000 032|200 324 327|304 000 031|200 324 327                  SETB32; JSP12; SETB31; JSP12;
 1164/3: 304 000 037|200 324 327|304 000 236|200 324 327                  SETB37; JSP12; SETB236; JSP12;
 1166/3: 304 000 036|200 324 327|304 000 023|200 324 327                  SETB36; JSP12; SETB23; JSP12;
 1170/3: 304 000 020|200 324 327|304 000 020|200 324 327                  SETB20; JSP12; SETB20; JSP12;
 1172/3: 304 000 037|200 324 327                                          SETB37; JSP12;
 1173/3: 157 313|300 016 240|170 262|300 276 367|164 025|164 245       151;   Q12TOQ11; YA12; =M11; Y1M11; SHL10; SHL-46;
 1175/5: 304 004 171|056|164 021|300 016 265|033|027                      SETB2171; +; SHL8; YA33; NOT; NEG;
 1177/4: 042|301 016 265|011|164 041                                      DUP; =YA33; OR; SHL16;
 1200/5: 304 000 020|201 322 352|011|304 000 013|201 322 352|164 021|011
                                                                          SET16; JS89; OR; SET11; JS89; SHL8; OR;
 1203/3: 304 000 016|201 322 352|056|041|166 041|200 330 115              SET14; JS89; +; ZERO; SHLD16; JSP34; (compile DOWN instr.);
 1205/4: 300 276 366|041|303 276 370|164 061|164 261                      Y0M11; ZERO; =Y2M11Q;SHL24; SHL-40;
 1207/3: 042|301 000 161|221 142 226                                      DUP; =V105; J155=Z; (if no parameters);
 1210/4: 041|042                                                          ZERO; DUP;
 1211/0: 300 276 367|042|170 156|164 275|304 200 000|170 150           124;   Y1M11; DUP; =Q6; SHL-34; SETB100000; =C6;
 1213/1: 304 042 102|200 022 360                                          SETB21102; J150!=;
                                                                       
                                                                       
                                                                       [ good15to28.txt 
                                                                       [ typist: Graham T
                                                                       
                                                                       
                                                                       (== Page 15 ==)
                                                                       
 1214/1: 304 200 001|170 150|300 276 366|164 037|224 042 221|052|300 000 146
                                                                               SETB100001; =C6; Y0M11; SHL15; J126<Z; ERASE; V94;
 1217/0: 171 144|164 101|011                                                   I6; SHL32; OR;
 1217/5: 167 361|304 000 006|200 330 115|033|027|042                   125;    SHC-8; SET6; JSP34; NOT; NEG; DUP;
 1221/4: 052|043|027|033|170 144|170 142                               126;    ERASE; DUPD; NEG; NOT; =I6; =M6;
 1223/0: 171 156|303 276 367|065|033|027                                       Q6; =Y1M11Q; REV; NOT; NEG;
 1224/2: 042|012|300 000 161|036|220 042 211                                   DUP; PERM; V105; -; J124<Z; (if f<X);
 1225/5: 052|052                                                               ERASE; ERASE;
 1226/1: 304 000 001|301 004 102                                       155;    SET1; =V0P4;
 1227/1: 304 000 033|200 324 327|300 016 265|304 001 055|056|200 324 346
                                                                               SETB33; JSP12; YA33; SET301; +; JSP13;
 1231/5: 304 000 041|042|200 324 327                                           SETB41; DUP; JSP12;
 1233/0: 052|200 327 174|042|200 324 327|042|304 000 011|036|200 102 233
                                                                       127;    ERASE; JSP31; DUP; JSP12; DUP; SET9; -; J127<=Z;
 1235/4: 304 000 230|200 022 357|041|065                                       SETB230; J111!=; ZERO; REV;
 1237/0: 200 327 174                                                   129;    JSP31;
 1237/3: 304 000 204|204 022 242|066|033|027                           158;    SETB204; J132!=; CAB; NOT; NEG;
 1241/0: 012                                                           154;    PERM;
 1241/1: 065|052|042                                                   130;    REV; ERASE; DUP;
 1241/4: 200 324 327|200 262 237                                       131;    JSP12; J129;
 1242/4: 304 000 224|202 022 245|066|042|220 142 241                   132;    SETB224; J133!=; CAB; DUP; J154=Z;
 1244/3: 027|033|200 262 241                                                   NEG; NOT; J154;
 1245/2: 066|042|200 142 241|012                                       133;    CAB; DUP; J154!=Z; PERM;
 1246/2: 304 000 236|224 022 241                                               SETB236; J131=; (if symbol = space);
 1247/2: 304 000 256|224 022 241                                               SETB256; J131=; (if symbol = tab);
 1250/2: 304 000 240|205 022 252                                               SETB240; J135!=; (if symbol != newline);
 1251/2: 065|052|304 000 230|065|204 262 241                           134;    REV; ERASE; SETB230; REV; J131;
 1252/5: 304 000 360|200 022 262                                       135;    SETB360; J138!=; (if symbol != EXIT);
 1253/5: 052|300 000 147|304 000 004|200 324 330                               ERASE; V95; SET4; JS1P12;
 1255/3: 304 000 230|200 022 261                                       136;    SETB230; J137!=; (to fail if LS != semi colon);
 1256/3: 200 327 174|304 000 230|221 022 241                           128;    JSP31; SETB230; J130=; (if symbol = semi colon);
 1260/0: 304 000 240|222 022 251                                               SETB240; J134=; (if symbol = newline);
                                                                       
                                                                       (== Page 16 ==)
                                                                       
 1261/0: 304 000 212|200 264 124                                       137;    SET138; JP5;
 1262/0: 304 000 300|202 022 271                                       138;    SETB300; J139!=; (if symbol != ALGOL);
 1263/0: 052|304 000 230|036|200 142 261                                       ERASE; SETB230; -; J137!=Z;
 1264/2: 052|041|301 004 102                                                   ERASE; ZERO; =V0P4;
 1265/1: 300 016 240|170 302|100 376|042|204 332 060                           YA12; =M12; M14M15; DUP; JS5P52;
 1267/0: 041|200 323 255|304 000 170|036|200 142 261                           ZERO; JSP1; SETB170; -; J137!=Z;
 1270/5: 201 260 315                                                           J5; (out);
 1271/2: 304 000 215|225 022 276|304 000 230|221 022 241|200 327 174|304 000 215|223 022 276
                                                                       139;    SETB215; J160=; SETB230; J130=; JSP31; SETB215; J159=;
 1274/5: 043|052|200 324 327|066|052|203 262 237                               DUPD; ERASE; JSP12; CAB; ERASE; J158;
 1276/3: 052|065                                                       159;    ERASE; REV;
 1276/5: 052|041|301 004 102                                           160;    ERASE; ZERO; =V0P4;
 1277/4: 304 000 001|200 323 255|304 000 001|301 004 102                       SET1; JSP1; SET1; =V0P4;
 1301/4: 304 000 117|036|225 142 303                                           SETB117; -; J141=Z;
 1302/5: 304 000 215|200 264 124                                       140;    SET141; JP5;
 1303/5: 200 331 140|042|205 042 302|041|050|170 156                   141;    JSP46; DUP; J140>=Z; ZERO; CONT; =Q6;
 1305/4: 261 142 313                                                           J142C6NZ; (if parameter = scalar/label);
 1306/1: 200 322 345                                                           JS148;
 1306/4: 300 276 366|203 042 255|300 000 150|304 000 005|200 324 330           Y0M11; J136>=Z; V96; SET5; JS1P12;
 1311/1: 300 000 151|304 000 005|200 324 330|203 262 255                       V97; SET5; JS1P12; J136;
 1313/1: 304 000 242|202 022 330                                       142;    SETB242; J146!=; (if LS != =);
 1314/1: 171 150|167 377|225 042 302                                           C6; SHC-1; J140<Z;
 1315/2: 300 276 366|202 042 326                                               Y0M11; J145>=Z;
 1316/2: 300 000 152|304 000 006|200 324 330                                   V98; SET6; JS1P12;
 1317/5: 300 000 153|304 000 003|200 324 330|171 144|200 324 346       143;    V99; SET3; JS1P12; I6; JSP13;
 1322/1: 042|300 000 154|066|304 000 025|036|225 142 324|052|300 000 155
                                                                               DUP; V100; CAB; SETB25; -; J144=Z; ERASE; V101;
 1324/5: 304 000 005|200 324 330|203 262 256                           144;    SET5; JS1P12; J128;
 1326/2: 304 000 242|200 324 327|200 322 345|203 262 256               145;    SETB242; JSP12; JS148; J128;
 1330/2: 304 000 025|200 022 340|171 150|167 377|205 042 302           146;    SETB25; J147!=; C6; SHC-1; J140>=Z;
 1332/3: 300 276 366|164 037|205 042 317|200 322 345                           Y0M11; SHL15; J143>=Z; JS148;
                                                                       
                                                                       (== Page 17 ==)
                                                                       
 1334/2: 304 000 230|200 324 327|304 000 016|203 322 345|300 000 154           SETB230; JSP12; SET14; JS149; V100;
 1336/5: 304 001 000|056|205 262 324                                           SETB400; +; J144;
 1340/0: 171 150|167 377|225 042 302|304 377 377|172 144               147;    C6; SHC-1; J140<Z; SET-1; =+I6;
 1342/0: 304 000 230|200 022 261|300 276 366|225 042 317|200 322 345|203 262 256
                                                                               SETB230; J137!=; Y0M11; J143<Z; JS148; J128;
 1345/0: 304 000 015                                                   148;    SET13;
 1345/3: 304 000 044|200 324 327|171 142|042|056|056|200 324 346       149;    SETB44; JSP12; M6; DUP; +; +; JSP13;
 1347/5: 304 030 002|164 101|304 000 002|200 324 330|200 360 000               SETB14002; SHL32; SET2; JS1P12; EXIT1;
 1352/1: 304 377 377|200 323 255|304 000 262|036|200 142 357           89;     SET-1; JSP1; SETB262; -; J111!=Z;
 1354/2: 300 016 227|042|220 042 357                                           YA3; DUP; J111<Z;
 1355/3: 042|012|036|220 042 357                                               DUP; PERM; -; J111<Z;
 1356/3: 200 360 000                                                           EXIT1;
 1357/0: 304 000 211|200 264 124                                       111;    SET137; JP5;
 1360/0: 167 355|042|200 042 372                                       150;    SHC-10; DUP; J152>=Z;
 1361/0: 304 377 376|170 150|300 276 366|204 042 221                           SETB177776; =C6; Y0M11; J126>=Z;
 1362/5: 164 263|042|304 000 002|054|042|056|011|304 000 014|054|300 000 157
                                                                               SHL-39; DUP; SET2; AND; DUP; +; OR; SETB14; AND; V103;
 1365/4: 011|171 144|164 101|011|042|167 361|304 000 006|200 330 115           OR; I6; SHL32; OR; DUP; SHC-8; SET6; JSP34;
 1370/1: 300 000 160|015|065|033|027|065|205 262 217                           V104; NEV; REV; NOT; NEG; REV; J125;
 1372/0: 042|164 021|220 042 374|164 003|042|224 042 221               152;    DUP; SHL8; J153<Z; SHL1; DUP; J126<Z;
 1374/0: 304 000 216|200 264 124                                       153;    SET142; JP5;
                                                                       
                                                                       
                                                                       (LEFT SQUARE BRACKET );
                                                                       
 1375/0: 304 000 001|036|200 140 325|304 000 005|300 016 231           67;     SET1; -; J7!=Z; (FAIL IF M!=1); SET5; YA5;
 1377/1: 304 000 175|015|304 000 375|054                                       SETB175; NEV; SETB375; AND;
 1400/3: 220 140 325|052|300 016 224|201 143 022|200 330 216|042               J7=Z; ERASE; YA0; J70!=Z; (JUMP IF T!=0); JSP38; DUP;
 1402/5: 052|200 332 271|304 004 000|301 016 246|041|200 330 276       68;     ERASE; JSP55; SETB2000; =YA18; ZERO; JSP41;
 1405/1: 300 276 367|304 004 000|164 101|011|301 276 367|304 010 000           Y1M11; SETB2000; SHL32; OR; =Y1M11; SETB4000;
 1407/4: 301 016 246|164 021|304 000 001|056|164 041|171 262|056|164 031|300 016 233
                                                                               =YA18; SHL8; SET1; +; SHL16; M11; +; SHL12; YA7;
 1412/5: 056|164 011|300 016 241|164 041|300 016 226|056|164 041               +; SHL4; YA13; SHL16; YA2; +; SHL16;
                                                                       
                                                                       (== Page 18 ==)
                                                                       
 1415/1: 171 022|056|041|301 016 233                                           M1; +; ZERO; =YA7;
 1416/2: 304 000 002|200 330 165|151 001|304 001 304|301 016 226|304 000 001|301 016 241|201 260 315
                                                                       69;     SET2; JSP36; M0TOQ1; SETB704; =YA2; SET1; =YA13; J5;
                                                                               (return to OUT);
 1422/1: 100 376|042|164 261|304 000 031|205 023 027|052               70;     M14M15; DUP; SHL-40; SET25; J71!=; (jump if TS!=MSF); ERASE;
 1424/1: 300 016 227|101 376|304 000 020|056                                   YA3; =M14M15; SET16; +;
 1425/4: 065|033|027|164 107|033|027|164 013|065|202 263 016                   REV; NOT; NEG; SHL35; NOT; NEG; SHL5; REV; J69;
 1427/5: 304 000 035|036|205 143 002|300 016 227|101 376|164 371       71;     SET29; -; J68!=Z; (jump if TS=other); YA3; =M14M15; SHL-4;
 1432/1: 033|027|065|052                                                       NOT; NEG; REV; ERASE;
                                                                       
                                                                       (OWN ARRAY);
 1432/5: 154 013|171 316|301 016 216|144 300|144 260                           C0TOQ11; Q12; =W0; I12=+1; I11=+1;
 1434/4: 304 000 001|170 302                                           72;     SET1; =M12;
 1435/3: 171 316|300 016 216|170 316|304 000 005|200 323 255|065|170 316
                                                                       73;     Q12; W0; =Q12; SET5; JSP1; REV; =Q12;
 1440/1: 260 023 046|304 000 337|304 000 122|043|300 016 231                   J74C1NZ; SETB337; SETB122; DUPD; YA5;
 1442/2: 015|054|304 000 105|065|221 143 115                                   NEV; AND; SET69; REV; J104=Z; (fail if LD=+/-);
 1443/5: 033|027|051|054|066|015|201 143 115                                   NOT; NEG; REVD; AND; CAB; NEV; J104!=Z; (fail if del!=+/-);
 1445/2: 052|203 263 035                                                       ERASE; J73;
 1446/0: 304 000 107|171 030|164 377|221 143 115|033|027|300 016 232   74;     SET71; C1; SHL-1; J104=Z; (fail if m=1); NOT; NEG; YA6;
 1450/3: 042|012|201 103 115|052|042                                           DUP; PERM; J104<=Z; (fail if constant != integer);ERASE; DUP;
 1451/4: 164 377|200 143 055                                                   SHL-1; J75!=Z; (jump if TIC0 or TIC1);
 1452/3: 052|300 016 227|304 000 014|166 121|304 000 007|205 263 057           ERASE; YA3; SET12;SHLD40; SET7; J77;
 1455/0: 164 037|170 050|304 116 016|164 101|242 043 057|164 021       75;     SHL15; =C2; SETB47016; SHL32; J76C2Z; SHL8;
 1457/2: 304 000 001                                                   76;     SET1;
 1457/5: 200 330 115|304 000 146|203 023 070                           77;     JSP34; SET102; J79!=; (if del != :);
 1461/2: 300 016 227|027|300 016 231|304 000 162|036|202 143 065               YA3; NEG; YA5; SET114; -; J78!=Z; (if LD != -);
 1463/4: 027|041|304 001 062|166 361|200 330 115                               NEG; ZERO; SETB462; SHLD-8; JSP34;
 1465/2: 172 302|052|304 377 377|172 304|171 304|223 143 035           78;     =+M12; ERASE; SET-1; =+I12; I12; J73=Z; (if y=0 );
 1467/3: 304 000 111|201 263 115                                               SET73; J104; (fail);
 1470/3: 304 000 173|043|015|054|304 000 112|065|201 143 115           79;     SETB173; DUPD; NEV; AND; SET74; REV; J104!=Z; (if del =other);
                                                                       
                                                                       (== Page 19 ==)
                                                                       
 1472/4: 052|300 016 227|300 016 231|304 000 162|036|204 143 076               ERASE; YA3; YA5; SET114; -; J80!=Z; (if LD!=-);
 1475/0: 027|041|304 001 062|166 361|200 330 115                               NEG; ZERO; SETB462; SHLD-8; JSP34;
 1476/4: 172 302|304 000 001|172 270|304 000 113|171 302|033|164 341|171 304
                                                                       80;     =+M12; SET1; =+C11; SET75; M12; NOT; SHL-16; I12;                 [ badly printed label
 1501/3: 304 000 001|036|011|221 143 115|052|171 264|171 302|034               SET1; -; OR; J104=Z; (if y=1 or d<1); ERASE; I11; M12; xD;
 1503/5: 050|170 264|144 300|304 000 177|036|204 143 034                       CONT; =I11; I12=+1; SET127; -; J72!=Z; (if del != ]);
 1505/5: 171 042|054|042|171 264|034|050|171 270|056|300 016 236|056|301 016 236|042
                                                                                M2; AND; DUP; I11; xD; CONT; C11; +; YA10; +; =YA10; DUP;
 1511/0: 042|027|033|300 016 237|056|164 021|056|164 061                       DUP; NEG; NOT; YA11; +; SHL8; +; SHL24;
 1513/0: 304 004 035|166 361|300 016 216|170 316|202 263 165                   SETB2035; SHLD-8; W0; =Q12; J85;
 1515/1: 300 016 216|170 316|200 264 124                               104;    (replace Q12 and jump to fail); W0; =Q12; JP5;
                                                                       (RIGHT SQUARE BRACKET);
 1516/3: 042|200 330 276|200 330 171|052|100 376|042                   81;     DUP; JSP41; JSP37; ERASE; M14M15; DUP;
 1520/2: 164 261|304 000 114|201 023 147                                       SHL-40; SET76; J84!=; (if TS != [ );
 1521/4: 052|042|164 341|042|301 012 105                                       ERASE; DUP; SHL-16; DUP; =V5P53;
 1523/0: 170 262|164 021|041|166 021|170 270|164 067                           =M11; SHL8; ZERO; SHLD8; =C11; SHL27;
 1524/5: 167 003|301 016 233|141 360|304 000 001|172 370|100 376|170 076|151 061
                                                                               SHC1; =YA7; M-I15; SET1; =+C15; M14M15; =Q3; M3TOQ1;
 1527/5: 171 064|301 016 226|171 070|301 016 241|141 360|304 000 001|172 370|300 276 366
                                                                               I3; =YA2; C3; =YA13; M-I15; SET1; =+C15; Y0M11;
 1533/1: 200 331 223|301 276 366|304 004 010|042|300 276 367                   JSP48; =Y0M11; SETB2010; DUP; Y1M11;
 1535/2: 164 301|015|054|204 143 140                                           SHL-32; NEV; AND; J82!=Z; (if bF(type col) = 1);
 1536/3: 171 270|027|033|224 143 140|304 000 152|200 260 325                   C11; NEG; NOT; J82=Z; (if X=1);  SET106; J7;
 1540/4: 171 022|201 143 144|041|304 001 064|166 361|200 330 115       82;     M1; J83!=Z; (if E=1); ZERO; SETB464; SHLD-8; JSP34;
 1543/0: 041|301 012 105|201 260 315                                   123;    ZERO; =V5P53; J5; (return to OUT);
 1544/1: 304 060 064|164 101|304 000 014|056|304 000 001|200 330 165|200 263 143
                                                                       83;     SETB30064; SHL32; SET12; +; SET1; JSP36; J123; (OUT);
 1547/1: 304 000 115|065|200 020 325                                   84;     SET77; REV; J7!=; (FAIL IF TS=other);
 1550/2: 052|042|164 367|170 270|167 367|304 000 116|065                       ERASE; DUP; SHL-5; =C11; SHC-5; SET78; REV;
 1552/2: 200 040 325|052|141 360                                               J7>=Z; (fail if y=0); ERASE; M-I15;
 1553/2: 304 000 001|172 370|300 016 226|304 017 277|054|301 016 226|151 041
                                                                               SET1; =+C15; YA2; SETB7677; AND; =YA2; M2TOQ1;
 1556/1: 041|301 016 241|100 376|164 371|171 042|054                           ZERO; =YA13; M14M15; SHL-4; M2; AND;
 1560/0: 042|042|141 360|304 000 001|172 370|304 000 002|056|300 016 235|056|171 350
                                                                               DUP; DUP; M-I15; SET1; =+C15; SET2; +; YA9; +; C14;
 1563/1: 164 025|056|164 021|056|164 061|304 004 031|166 361                   SHL10; +; SHL8; +; SHL24; SETB2031; SHLD-8;
                                                                       
                                                                       (== Page 20 ==)
                                                                       
 1565/2: 200 330 115|042|170 264|170 070|304 000 001|170 030           85;     JSP34; DUP; =I11; =C3; SET1; =C1;
 1567/3: 100 376|301 016 227|141 360|304 000 001|172 370|304 000 003|041|200 331 153
                                                                       86;     M14M15; =YA3; M-I15; SET1; =+C15; SET3; ZERO; JSP47;
 1572/4: 143 060|263 063 167|304 000 076|300 016 225|201 143 200               DC3; J86C3NZ; SET62; YA1; J87!=Z; (if D!=0);
 1575/0: 033|027|300 016 235|171 264|056|042|301 016 235|304 000 002|056|205 263 201
                                                                               NOT; NEG; YA9; I11; +; DUP; =YA9; SET2; +; J88;
 1600/1: 300 016 237|171 264|056|042|301 016 237                       87;     YA11; I11; +; DUP; =YA11;
 1601/5: 304 014 000|054|200 140 325                                   88;     SETB6000; AND; J7!=Z; (fail if L or Lp overlength);
 1603/0: 052|201 260 315                                                       ERASE; J5; (return to OUT);
                                                                       
                                                                       
                                                                       (STRING);
 1603/4: 304 000 001|301 016 264|300 016 233|220 140 325               92;     SET1; =YA32; YA7; J7=Z; (fail if PROC=0);
 1605/4: 300 016 231|304 000 163|015|304 000 367|054|200 140 325               YA5; SETB 163; NEV; SETB 367; AND; J7!=Z; (fail if LD!=(/, ));
 1610/0: 171 030|200 140 325|052|171 344|223 143 213                           C1; J7!=Z; (fail if m!=0); ERASE; I14; J93=Z;
                                                                               (if i at new word);
                                                                       
 1611/5: 041|304 000 006|171 344|036|200 330 115                               ZERO; SET6; I14; -; JSP34;
 1613/3: 300 016 243|301 004 103|171 024|304 001 303|164 041|011|041|166 061|200 330 165
                                                                       93;     YA15; =V1P4; I1; SETB703; SHL16; OR; ZERO; SHLD24; JSP36;
 1616/5: 042|301 004 102|200 324 104                                           DUP; =V0P4; JSP4;
 1620/0: 164 121|304 000 001|200 330 115|300 016 264|224 143 232       94;     SHL40; SET1; JSP34; YA32; J99=Z; (if s=0);
 1622/2: 200 324 231|304 000 001|301 004 102|041|301 016 233|200 327 174|304 000 235|205 023 227
                                                                       110; JSP7; SET1; =V0P4; ZERO; =YA7; JSP31; SETB235; J98!=; (IF !=CLOSINGQUOTE);
 1626/0: 300 016 264|027|033|301 016 264|200 263 220                           YA32; NEG; NOT; =YA32; J94;
 1627/5: 304 000 215|200 023 220                                       98;     SETB215; J94!=; (if!= opening quote);
 1630/5: 300 016 264|033|027|301 016 264|200 263 220                           YA32; NOT; NEG; =YA32; J94;
 1632/4: 041|301 004 102|041|301 004 103                               99;     ZERO; =V0P4; ZERO; =V1P4;
 1634/0: 304 000 001|301 016 233|171 344|223 143 237                           SET1; =YA7; I14; J100=Z; (if i at new word);
 1635/5: 041|304 000 006|171 344|036|200 330 115                               ZERO; SET6; I14; -; JSP34;
 1637/3: 041|200 323 255|041|301 016 226|304 000 173|036|221 140 315   100;    ZERO; JSP1; ZERO; =YA2; SET123; -; J5=Z; (to OUT if del=,);
 1642/0: 300 016 230|304 000 175|036|223 141 212                               YA4; SET125; -; J25=Z; (right round bracket entry 2);
 1643/4: 304 000 200|200 260 325                                               SET128; J7; (fail if del = other);
                                                                       (RESTART );
 1644/4: 304 000 206|201 263 246                                       113;    SET134; J117;
                                                                       
                                                                       (== Page 21 ==)
                                                                       
 1645/4: 304 000 210                                                   114;    SET136;
 1646/1: 041|033|047|052|304 000 002|170 022|105 020                   117;    ZERO; NOT; STR; ERASE; SET2; =M1; =M0M1H; (RESET T/L);
 1650/0: 041|301 012 105|041|301 004 103                                       ZERO; =V5P53; ZERO; =V1P4;
                                                                               (clear extra fail information markers);
 1651/2: 200 266 262                                                           JP29;
                                                                       
=== Start P1V2; at address 941
                                                                       P1V2;   (B.C.R);
V-store at 01652 = 102 120 000 000 000 000  
V-store at 01653 = 100 300 000 000 000 000                                     V0=F 10.0;   V1=F 1.0;
 1655/0: 154 001|157 012|041|301 003 254                                       C0TOQ1; Q0TOQ10; ZERO; =V2;
 1656/2: 200 327 174                                                   1;      JSP31;
 1656/5: 300 016 221|201 143 261                                       2;      W3; J35!=Z; (if char != letter/digit/./@);                [ { @ is for subscript 10 }
 1657/5: 042|304 000 101|036|222 043 320                               36;     DUP; SET65; -; J10<Z; (if char = letter/digit/./@);
 1661/1: 042|164 361|203 143 270                                       35;     DUP; SHL-8; J4!=Z; (if comment/true/false);
 1662/1: 300 016 230|301 016 231|042|301 016 230|065|042|033|027|164 375
                                                                               YA4; =YA5; DUP; =YA4; REV; DUP; NOT; NEG; SHL-2;
 1664/5: 200 143 267|171 030|036|304 000 164|065|202 143 302                   J3!=Z; (if p=4 or 5); C1; -; SET116; REV; J6!=Z; (fail if m!=p);
 1667/0: 052|171 256|301 016 227|200 360 000                           3;      ERASE; Q10; =YA3; EXIT1;
 1670/3: 164 357|042|201 143 311|052                                   4;      SHL-9; DUP; J9!=Z; (if true/false); ERASE;
 1671/4: 041|300 004 123|201 143 261|052                                       ZERO; V0P5; J35!=Z; ERASE;
 1673/0: 300 016 230|042|301 016 231|041|301 016 230|304 000 001|301 003 254
                                                                               YA4; DUP; =YA5; ZERO; =YA4; SET1; =V2;
 1675/5: 171 030|066|170 030|201 143 301                                       C1; CAB; =C1; J5!=Z; (if m != 0);
 1677/1: 304 000 056|225 023 302                                               SET46; J7=; (if delimiter = begin);
 1700/1: 304 000 170|225 023 302                                               SET120; J7=; (if LD = semi colon);
 1701/1: 052|304 000 165|200 324 124                                   5;      ERASE; SET117; JSP5;
 1702/2: 200 264 124                                                   6;      JP5;
 1702/5: 052                                                           7;      ERASE;
 1703/0: 304 000 001|301 003 254|200 327 174|041|301 003 254           8;      SET1; =V2; JSP31; ZERO; =V2;
 1705/1: 304 000 157|222 023 317                                               SETB157; J38=; (fail if end message in comment);
 1706/1: 304 000 170|036|200 143 303                                           SET120; -; J8!=Z; (if char != semi colon);
 1707/2: 300 016 231|301 016 230|171 030|200 263 255                           YA5; =YA4; C1; JP1;
                                                                       
                                                                       (== Page 22 ==)
                                                                       
                                                                       
 1711/1: 065|304 000 004|201 023 313|065|052|202 263 256               9;      REV; SET4; J39!=; REV; ERASE; J1;
 1713/1: 065|304 000 002|036|042|170 256|027|033                       39;     REV; SET2; -; DUP; =Q10; NEG; NOT;
 1714/5: 301 016 232|304 000 166|262 023 302|052|143 020|202 263 256           =YA6; SET118; J6C1NZ; (fail if m!=0); ERASE; DC1; J1;
 1717/2: 304 000 205|200 264 124                                       38;     SET133; JP5;
 1720/2: 065|304 000 004|202 023 322|065|052|202 263 256               10;     REV; SET4; J11!=; (if p!=4); REV; ERASE; J1;
 1722/2: 304 000 167|262 023 302|052|065|042                           11;     SET119; J6C1NZ; (fail if m!=0); ERASE; REV; DUP;
 1723/5: 304 000 065|036|205 043 343                                           SET53; -; J14>=Z; (if char = digit/./@);
                                                                       
                                                                       (IDENTIFIER);
 1725/0: 304 000 010|170 050|304 000 001|170 030                               SET8; =C2; SET1; =C1;
 1726/4: 171 256|164 015|056|170 256|200 327 174|300 016 221|204 143 332
                                                                       12;     Q10; SHL6; +; =Q10; JSP31; W3; J41!=Z;(if char!=letter/digit/./@);
 1731/2: 042|304 000 077|036|220 043 334                                        DUP; SET63; -; J40<Z; (if char = letter/digit);
 1732/4: 171 256|301 016 261|205 263 256                               41;     Q10; =YA29; J2;
 1734/0: 143 040|264 043 326|300 010 060|222 143 340                   40;     DC2; J12C2NZ; (if l!=0); V6P33; J13=Z; (if no output);
 1735/5: 171 256|304 000 003|300 006 072|300 006 073|202 332 047               Q10; SET3; V16P29; V17P29; JS15P50;(print identifier overlength);
 1740/1: 052                                                                   ERASE;
 1740/2: 052|200 327 174|300 016 221|204 143 332                       13;     ERASE; JSP31; W3; J41!=Z; (if char!=letter/digit/./@);
 1742/0: 042|304 000 077|036|222 043 340                                       DUP; SET63; -; J13<Z; (if char = letter/digit);
 1743/2: 204 263 332                                                           J41;
                                                                       
                                                                       (NUMBER);
 1743/5: 001|171 264|065|143 020                                       14;     VR; I11; REV; DC1;
 1744/5: 157 002|171 376|301 016 232|152 013|157 017                           Q0TOQ2; Q15; =YA6; I0TOQ11; Q0TOQ15;
 1746/4: 300 016 221|201 144 007|042|304 000 065|036|042               15;     W3; J24!=Z; (if char!=letter/digit/./@); DUP; SET53; -; DUP;
 1750/4: 304 000 167|065|223 043 374|052                                       SET119; REV; J37<Z; (fail if char = letter); ERASE;
 1752/0: 042|304 000 012|036|042|201 043 371                                    DUP; SET10; -; DUP; J20>=Z; (if char = digit);
 1753/3: 052|171 042|204 143 367|171 256|042|164 005|056|164 003|056           ERASE; M2; J19!=Z; (if MAX=1); Q10; DUP; SHL2; +; SHL1; +;
 1756/0: 042|304 000 200|164 101|036|225 103 366                               DUP; SETB200; SHL32; -; J18>Z; (if N0>2^39);                  [ { ^ FOR up }
 1757/4: 170 256|171 044|201 143 362                                           =Q10; I2; J17!=Z; (if Exp!=0);
                                                                       
                                                                       (== Page 23 ==)
                                                                       
 1760/5: 241 043 362|304 000 001|172 376                               16;     J17C2Z; (if Point=0); SET1; =+Q15;
 1762/1: 170 264|300 016 232|171 376|301 016 232|170 376|200 327 174   17;     =I11; YA6; Q15; =YA6; =Q15; JSP31;
 1764/4: 300 016 232|171 376|301 016 232|170 376|204 263 346                   YA6; Q15; =YA6; =Q15; J15;
 1766/5: 304 000 001|170 042                                           18;     SET1; =M2;
 1767/4: 052|304 377 377|172 376|205 263 360                           19;     ERASE; SET-1; =+Q15; J16;
 1771/1: 205 143 375|052|171 044|200 143 374                           20;     J22!=Z; (IF CHAR!=.); ERASE; I2; J21!=Z; (fail if Exp!=0);
 1772/4: 260 043 374|143 040|201 263 362                                       J21C2NZ; (fail if Point!=0); DC2; J17;
 1774/0: 304 000 161                                                   21;     SET113;
 1774/3: 300 016 232|170 376|200 264 124                               37;     YA6; =Q15; JP5;
 1775/5: 171 264|304 000 077|220 023 374|304 000 122|015|304 000 337   22;     I11; SET63; J21=; (if LC=.); SETB122; NEV; SETB337;
 2000/2: 054|220 143 374|304 000 013|036|201 144 007                           AND; J21=Z; (fail if LC=+/-); SET11; -; J24!=Z; (if char!=@);
 2002/1: 171 044|200 143 374|151 002|304 000 001|301 016 227|171 264|220 144 006
                                                                               I2; J21!=Z; (fail if Exp!=0); M0TOQ2; SET1; =YA3; I11; J23=Z;
 2005/1: 171 256|301 016 227                                                   (IF LC = blank); Q10; =YA3;
 2006/0: 157 012|144 040|201 263 362                                   23;     Q0TOQ10; I2=1;J17;
 2007/1: 171 264|304 000 100|036|203 144 013|304 000 122|221 023 362   24;     I11; SET64; -; J25!=Z; (if LC!=@); SET82; J17=; (if char =+);
 2011/4: 304 000 162|200 023 374|145 040|201 263 362                           SET114; J21!=; (fail if char != -); I2=-1; J17;
 2013/3: 171 044|203 144 025|265 044 030|304 000 171|171 042|203 143 374
                                                                       25;     I2; J27!=Z; (if Exp!=0); J29C2NZ; SET121; M2; J37!=Z; (if MAX!=0);
 2016/1: 052|304 000 001                                                       ERASE; SET1;
 2016/5: 171 256|164 377|201 144 021|052|304 000 003|171 256|036               Q10; SHL-1; J26!=Z; (IF N0!=0/1);  ERASE; SET3; Q10; -;
 2021/1: 304 000 377|170 042|300 016 232|170 376|301 016 232|304 000 172|222 203 302|052
                                                                       26;     SETB377; =M2; YA6; =Q15; =YA6; SET122; J6V; ERASE;
 2024/3: 065|170 264|205 263 256                                               REV; =I11; J2;
 2025/3: 171 044|221 104 027|171 256|027|170 256                       27;     I2; J28>Z; (if Sign=0); Q10; NEG; =Q10;
 2027/1: 171 256|027|172 376|300 016 227|170 256                       28;     Q10; NEG; =+Q15; YA3; =Q10;
 2030/5: 154 002|300 003 252|300 003 253|171 376|042|204 044 033|027|143 040
                                                                       29;     C0TOQ2; V0; V1; Q15; DUP; J30>=Z; (if Dec>=0); NEG; DC2;
 2033/4: 042|222 144 040                                               30;     DUP; J33=Z;
 2034/2: 042|167 377|201 044 036|012|043|052|004|066                   31;     DUP; SHC-1; J32>=Z; PERM; DUPD; ERASE; xF; CAB;
 2036/1: 164 377|042|222 144 040|066|042|004|012|202 264 034           32;     SHL-1; DUP; J33=Z; CAB; DUP; xF; PERM; J31;
 2040/2: 052|065|052|261 044 042|300 003 253|065|062                   33;     ERASE; REV; ERASE; J34C2NZ; V1; REV; %F;
 2042/1: 171 256|304 000 057|024|004|170 256|041|201 264 021           34;     Q10; SET47; FLOAT; xF; =Q10; ZERO; J26;
                                                                       
                                                                       (== Page 24 ==)
                                                                       
=== Start P2V-1; at address 1061
                                                                       P2;     (BEGIN);
 2045/0: 171 022|225 144 055                                                   M1; J1=Z;
 2045/5: 300 016 233|205 144 055                                               YA7; J1!=Z;
 2046/5: 265 024 055                                                           J1C1NZ;
 2047/2: 300 016 242|205 144 055                                               YA14; J1!=Z;
 2050/2: 200 330 216                                                           JSP38;
 2050/5: 041|301 016 234                                                       ZERO; =YA8;
 2051/3: 100 376|164 261|304 000 020|015|304 000 277|054                       M14M15; SHL-40; SETB20; NEV; SETB277; AND;
 2053/3: 225 144 055                                                           J1=Z;
 2054/0: 167 361|304 000 001|200 330 165                                       SHC-8; SET1; JSP36;
 2055/2: 200 360 000                                                           EXIT1;
 2055/5: 200 264 124                                                   1;      JP5;
=== Start P3V0; at address 1072
                                                                       P3V0;   (TRACE a routine to update line nos and compile trace );
V-store at 02057 = 374 017 300 374 017 300                                     V0=B 7700 7700 7700 7700;
 2060/0: 300 016 227|304 000 012|166 121|304 000 007|200 330 115               YA3; SET10; SHLD40; SET7; JSP34;
 2062/2: 171 156|300 016 227|042|301 016 245|041|301 016 244           1;      Q6; YA3; DUP; =YA17; ZERO; =YA16;
 2064/3: 300 010 060|220 144 101                                               V6P33; J5=Z;
 2065/3: 300 010 056|170 150|264 144 067|300 016 260|170 150                   V4P33; =C6; J4C6NZ; YA28; =C6;
 2067/4: 304 006 054|170 144|304 006 055|170 142|201 327 004           4;      SETAV2P29; =I6; SETAV3P29; =M6; JS20P29;
 2071/5: 300 016 260|300 010 056|220 144 077|052|300 004 057|042               YA28; V4P33; J3=Z; ERASE; V0; DUP;
 2074/1: 300 006 054|011|301 006 054                                           V2P29; OR; =V2P29;
 2075/2: 300 006 055|011|301 006 055|300 010 056                               V3P29; OR; =V3P29; V4P33;
 2077/0: 170 150|171 156|200 336 115|170 156|200 360 000               3;      =C6; Q6; JSP114; =Q6; EXIT1;
 2101/0: 052|052|200 360 000                                           5;      ERASE; ERASE; EXIT1;
                                                                       
=== Start P4V1; at address 1092
                                                                       P4V1;   (CONVERT from Whetstone TO Kidsgrove internal code);
V-store at 02102 = 000 000 000 000 000 000  
V-store at 02103 = 000 000 000 000 000 000                                     V0=0; V1=0;
 2104/0: 300 004 102|220 144 110                                               V0; J1=Z; (if no conversion required);
 2105/0: 300 016 221|200 144 113                                               W3; J3!=Z; (if char!= letter/digit);
                                                                       
                                                                       (== Page 25 ==)
                                                                       
 2106/0: 042|304 000 065|036|203 044 110|304 000 013|056                       DUP; SET53; -; J2>=Z; SET11; +;
 2110/0: 200 360 000                                                   1;      EXIT1;
 2110/3: 042|304 000 077|036|200 044 113                               2;      DUP; SET63; -; J3>=Z; (if char != digit);
 2111/5: 304 000 065|036|200 264 110                                           SET53; -; J1;
 2113/0: 304 000 157|200 024 115                                       3;      SET111; J4!=; (if end message inside string or code body);
 2114/0: 304 000 205|200 264 124                                               SET133; JP5;
 2115/0: 042|304 000 077|054|170 062|304 000 300|054|164 373           4;      DUP; SETB77; AND; =M3; SETB300; AND; SHL-3;
 2117/1: 170 070|300 060 020|164 060|164 261|304 000 207|200 024 110           =C3; V8P0M3; SHLC3; SHL-40; SET135; J1!=; (if legal char);
 2121/4: 200 264 124                                                           JP5;
                                                                       
=== Start P5V0; at address 1108
                                                                       P5V0; (SCAN);
V-store at 02123 = 000 000 000 000 000 000                                     V0=0; (used as end comment marker);
 2124/0: 200 326 262|052                                                       JSP29; ERASE; (print error message);
 2124/4: 300 003 254|224 144 126|173 000|052|200 263 303                       V2P1; J1=Z; LINK; ERASE; J8P1; ( to BCR if fail in comment);
 2126/4: 201 324 232                                                   1;      JS1P7; (clear SJNS);
 2127/1: 300 016 264|202 143 222                                               YA32; J110P0!=Z; (to STRING if fail within string);
 2130/1: 200 324 231|041|301 004 102                                           JSP7; ZERO; =V0P4;
 2131/2: 300 004 123|042|225 101 001                                           V0; DUP; J12P0>Z; (to END if fail in end comment);
 2132/3: 052|204 326 367                                                       ERASE; JS4P29;
 2133/1: 041|301 016 261|300 016 230                                   3;      ZERO; =YA29; (to clear identifier store); YA4;
 2134/2: 304 000 157|202 024 136                                       4;      SETB157; J5!=; (if delimiter != end message);
 2135/2: 304 000 205|200 264 124                                               SET133; JP5;
 2136/2: 304 000 127|202 024 142                                       5;      SETB127; J7!=; (if delimiter != `);                  [ underlined [ used as open quote
 2137/2: 300 016 264|033|027|301 016 264                                       YA32; NOT; NEG; =YA32; (S:= S+1);
 2140/4: 052|304 000 004|200 323 255|202 264 134                       6;      ERASE; SET4; JSP1; J4;
 2142/2: 304 000 117|201 024 146                                       7;      SETB117; J8!=; (if delimiter != ');                  [ underlined ] used as close quote
 2143/2: 300 016 264|224 144 140|300 016 264|027|033|301 016 264|204 264 140
                                                                               YA32; J6=Z; YA32; NEG; NOT; =YA32; J6; (S:=S-1 unless S=0);
 2146/1: 300 016 264|204 144 140                                       8;      YA32; J6!=Z; (if s != 0);
 2147/1: 304 000 170|225 024 151                                               SETB170; J9=; (if delimiter = semi colon);
                                                                       
                                                                       (== Page 26 ==)
                                                                       
 2150/1: 304 000 271|054|304 000 050|204 024 140                               SETB271; AND; SETB50; J6!=; (if delimiter = other);
 2151/5: 052|304 000 170|301 016 231                                   9;      ERASE; SETB170; =YA5; (LD := semi colon);
 2153/0: 304 000 001|042|170 022|301 016 234                                   SET1; DUP; =M1; =YA8; (E := V := 1);
 2154/3: 041|301 016 241|041|301 016 242                                       ZERO; =YA13; ZERO; =YA14; (ARITH := F := 0);
 2155/5: 041|301 016 233|041|301 016 224                                       ZERO; =YA7; ZERO; =YA0; (PROC := D := 0);
 2157/1: 041|301 016 262|041|303 316 370                                       ZERO; =YA30; ZERO; =Y2M12Q; (SV := item[NL] :=0);
 2160/3: 041|301 016 225                                                       ZERO; =YA1; (T := 0);
 2161/1: 304 001 204|301 016 226|304 000 377|170 042                           SETB604; =YA2; SETB377; =M2; (ABG(TYPE) := 1);
 2163/0: 300 016 230|304 000 056|224 020 321                                   YA4; SETB56; J6P0=; (OUT2 if delimiter = begin);
 2164/3: 304 000 150|036|201 144 167|304 377 377|301 016 234                   SETB150; -; J12!=Z; SET-1; =YA8; (V := -1);
 2166/4: 202 260 371                                                           J10P0; (END ENTRY 2);
 2167/1: 300 016 255|042|222 044 172                                   12;     YA25; DUP; J10<Z; (IF PH = -1);
 2170/2: 205 144 171                                                           J13!=Z;
 2170/5: 204 326 041                                                           JS13P26; (semi colon entry 2);
 2171/2: 201 260 315                                                           J5P0; (out);
 2171/5: 304 377 377                                                   13;     SET-1; (PH := -1);
 2172/2: 301 016 255                                                   10;     =YA25; (restore PH);
 2172/5: 304 000 005|200 323 255                                               SET5; JSP1;
 2173/5: 262 024 200                                                           J11C1NZ; (if m != 0);
 2174/2: 304 000 101|224 024 140                                               SETB101; J6=; (if delimiter = value);
 2175/2: 042|164 127|224 144 140                                               DUP; SHL43; J6=Z; (if delimiter = scalar);
 2176/2: 304 000 201|224 024 140                                               SETB201; J6=; (if delimiter = string);
 2177/2: 042|164 373|224 144 140                                               DUP; SHL-3; J6=Z; (if delimiter = specifier);
 2200/2: 041|301 016 255                                               11;     ZERO; =YA25; (PH := 0);
 2201/0: 204 260 321                                                           J6P0; (OUT2);
                                                                       2;      (print FAIL and set FAIL marker);
 2201/3: 304 006 052|042|170 145|170 142|171 156|200 336 115                   SETAV0P29; DUP; =RI6; =M6; Q6; JSP114;
 2203/4: 300 016 256|033|027|301 016 256|200 360 000                           YA26; NOT; NEG; =YA26; EXIT1;
                                                                       
                                                                       (== Page 27 ==)
                                                                       
=== Start P6V-1; at address 1158
                                                                       P6;     (ARRAY);
 2206/0: 052|200 327 053|304 000 015|200 330 171|300 016 224|042|200 144 216
                                                                               ERASE; JSP30; SET13; JSP37; YA0; DUP; J2!=Z; (IF T!=0);
 2210/5: 052|304 005 304|301 016 224|300 016 225|220 144 214                   ERASE; SETB2704; =YA0; YA1; J1=Z; (if D=0);
 2213/0: 304 000 103|200 264 124                                               SET67; JP5;
 2214/0: 041|304 001 031|166 361|200 330 165|200 360 000               1;      ZERO; SETB431; SHLD-8; JSP36; EXIT1;
 2216/0: 042|304 010 004|011|222 024 220                               2;      DUP; SETB4004; OR; J3=; (if Ag(T)=1);
 2217/2: 304 000 104|200 264 124                                               SET68; JP5;
 2220/2: 304 004 000|036|301 016 224|300 016 225|220 144 214           3;      SETB2000; -; =YA0; YA1; J1=Z; (if D=0);
 2222/3: 041|304 003 127|166 361                                               ZERO; SETB1527; SHLD-8;
 2223/3: 200 330 115|041|304 002 035|166 361|042|027|200 331 130|164 041
                                                                               JSP34; ZERO; SETB1035; SHLD-8; DUP; NEG; JSP45; SHL16;
 2226/1: 304 015 033|167 361|056|065|200 330 165|200 360 000                   SETB6433; SHC-8; +; REV; JSP36; EXIT1;
=== Start P7V-1; at address 1177
                                                                       P7;     (clear nest and or SJNS);
 2231/0: 221 244 232|052|200 264 231                                           J1EN; ERASE; JP7;
 2232/1: 173 000                                                       1;      LINK;
 2232/3: 220 304 234|173 000|052|203 264 232                           2;      J3EJ; LINK; ERASE; J2;
 2234/0: 174 000|200 360 000                                           3;      =LINK; EXIT1;
=== Start P8V-1; at address 1181
                                                                       P8;     (used by RELATION, LOGICAL, and ARITH OP);
 2235/0: 304 000 053|300 016 241|200 140 325                                   SET43; YA13; J7P0!=Z; (to fail if ARITH != 0);
 2236/3: 052                                                                   ERASE;
 2236/4: 041|065|300 016 226|042|167 371                               1;      ZERO; REV; YA2; DUP; SHC-4;
 2240/0: 222 044 245                                                           J3<Z; (to fail if col F of TE set);
 2240/3: 200 331 050                                                           JSP42; (COMPARE TE );
 2241/0: 300 016 230|304 000 362|036|202 144 243                               YA4; SET242; -; J2!=Z; (if delimiter != %);
 2242/4: 304 000 020|011                                                       SETB20; OR;
 2243/2: 301 016 226|304 000 003|200 330 255                           2;      =YA2; SET3; JSP40; (EXP 3);
 2244/5: 200 360 000                                                           EXIT1;
 2245/2: 304 000 101|200 264 124                                       3;      SET65; JP5; (fail 65);
                                                                       
=== Start P9V0; at address 1192
                                                                       P9V0;   (ARITH OP 19/2/63);
                                                                       
                                                                       (== Page 28 ==)
                                                                       
V-store at 02247 = 000 002 256 252 144 000                                     V0=B 0000 1256 5246 2000;
 2250/0: 304 001 304|204 324 236|240 024 262                                   SETB704; JS1P8;J6C1Z; (if m=0);
 2251/3: 200 332 271                                                           JSP55;
 2252/0: 304 000 001|200 330 276                                       2;      SET1; JSP41;
 2253/0: 300 016 226|304 001 357|054|301 016 226|042|164 373|027|170 070
                                                                       3;      YA2; SETB757; AND; =YA2; DUP; SHL-3; NEG; =C3;
 2255/4: 300 004 247|164 060|304 000 017|054|042|200 330 171|065|164 121|056
                                                                               V0; SHLC3; SETB17; AND; DUP; JSP37; REV; SHL40; +;
 2260/3: 304 000 001|200 330 165                                       4;      SET1; JSP36;
 2261/3: 200 360 000                                                   5;      EXIT1;
 2262/0: 300 016 231|304 000 177|203 024 264                           6;      YA5; SET127; J7!=; (fail if LD!= ]);
 2263/3: 151 001|052|200 264 252                                               M0TOQ1; ERASE; J2;
 2264/3: 304 000 175|201 024 266                                       7;      SET125; J8!=; (if LD!=right round bracket);
 2265/3: 052|200 264 253                                                       ERASE; J3;
 2266/1: 304 000 022|015|304 000 037|054|200 144 271                   8;      SETB22; NEV; SETB37; AND; J10!=Z; (if LD=other);
 2270/0: 304 000 051                                                           SET41;
 2270/3: 200 264 124                                                   9;      JP5;
 2271/0: 200 332 271|304 000 162|200 024 274                           10;     JSP55; SET114; J1!=; (if del!= -);
 2272/3: 052|304 012 062|167 361|203 264 260                                   ERASE; SETB5062; SHC-8; J4;
 2274/0: 304 000 122|036|223 144 261                                   1;      SET82; -; J5=Z; (if del= +);
 2275/1: 304 000 052|200 264 124                                               SET42; JP5;
=== Start P10V-1; at address 1215
                                                                       P10;    (RELATION);
 2277/0: 164 121|304 000 010|056                                               SHL40; SET8; +;
 2300/0: 304 001 304|200 324 235                                               SETB704; JSP8;
 2301/0: 200 332 271|304 000 001|200 330 276|042|200 330 171|304 000 001|200 330 165
                                                                               JSP55; SET1; JSP41; DUP; JSP37; SET1; JSP36;
 2304/1: 151 001|200 360 000                                                   M0TOQ1; EXIT1;
=== Start P11V-1; at address 1221
                                                                       P11;    (LOGICAL);
 2305/0: 304 001 204|200 324 235                                               SETB604; JSP8;
 2306/0: 200 332 271                                                           JSP55;
 2306/3: 304 000 376|223 024 315                                               SET254; J2=; (if del=not);
 2307/3: 304 000 001|200 330 276|042|164 367|200 330 171                       SET1; JSP41; DUP; SHL-5; JSP37;
                                                                       
                                                                       [ good29.txt 
 2311/3: 042|164 367|065|164 121|056|304 000 001|200 330 165|304 001 204
                                                                       1;		DUP; SHL-5; REV; SHL40; +; SET1; JSP36; SETB604;
 2314/1: 301 016 226|151 001|200 360 000                               		=YA2; M0TOQ1; EXIT1;
 2315/3: 262 024 323                                                   2;		J3C1NZ; (fail if m!=0);
 2316/0: 300 016 231|304 000 376|222 024 323                           		YA5; SET254; J3=; (fail if LD=not);
 2317/3: 042|304 000 022|015|304 000 033                               		DUP; SETB22; NEV; SETB33;
 2320/5: 054|222 144 323                                               		AND; J3=Z; (fail if LD=arith/rel op.);
 2321/3: 304 000 175|015|304 000 375|054|203 144 311                   		SETB175; NEV; SETB375; AND; J1!=Z; (if LD!=closing bracket);
 2323/2: 304 000 054|200 264 124                                       3;		SET44; JP5;
=== Start P12V1; at address 1239
                                                                       P12V1;	(add to code);
V-store at 02325 = 000 000 000 000 000 000  
V-store at 02326 = 000 000 000 000 000 006                             		V0=0; V1=6;
 2327/0: 154 003|042|201 264 331                                       		C0TOQ3; DUP; J3;
 2330/0: 170 070                                                       1;		=C3;
 2330/2: 143 060|041|166 021                                           2;		DC3; ZERO; SHLD8;
 2331/1: 300 004 325|011|300 004 326|027|033|042                       3;		V0; OR; V1; NEG; NOT; DUP;
 2332/5: 225 144 335                                                   		J5=Z;
 2333/2: 301 004 326|164 021|301 004 325                               		=V1; SHL8; =V0;
 2334/4: 262 064 330                                                   4;		J2C3NZ;
 2335/1: 052|200 360 000                                               8;		ERASE; EXIT1;
 2335/5: 301 004 325|304 000 006|301 004 326                           5;		=V0; SET6; =V1;
 2337/2: 300 016 260|065|200 334 077                                   6;		YA28; REV; JSP125;
 2340/3: 052|052|204 264 334                                           		ERASE; ERASE; J4;
 2341/2: 300 004 326|304 000 006|221 024 335                           7;		V1; SET6; J8=;
 2342/5: 027|033|164 007|170 070                                       		NEG; NOT; SHL3; =C3;
 2343/5: 300 004 325|042|164 060|154 003|202 264 337                   		V0; DUP; SHLC3; C0TOQ3; J6;
                                                                       		
=== Start P13V-1; at address 1254
                                                                       P13;	(convert binary to characters and add to code);
 2346/0: 304 000 004|170 070                                           		SET4; =C3;
 2346/5: 041|065                                                       		ZERO; REV;
 2347/1: 304 000 012|044                                               1;		SET10; %I;
                                                                       
                                                                       [ good30.txt 
                                                                       [ -- Brian W
                                                                       
 2347/5: 066|011|167 361                                               		CAB; OR; SHC-8;
 2350/3: 065|143 060|042|221 144 353                                   		REV; DC3; DUP; J2=Z;
 2351/4: 261 064 347                                                   		J1C3NZ;
 2352/1: 304 000 217|200 264 124                                       		SET143; JP5;
 2353/1: 052|304 000 004|171 070|036                                   2;		ERASE; SET4; C3; -;
 2354/2: 200 324 330                                                   		JS1P12;
 2354/5: 200 360 000                                                   		EXIT1;
=== Start P14V-1; at address 1262
                                                                       P14;	(left round bracket);
 2356/0: 164 061|300 016 233|056|164 041|171 030|223 044 362           		SHL24; YA7; +; SHL16; C1; J1<Z; (if m=2);
 2360/1: 300 016 231|304 000 175|015|304 000 375|054|203 144 363       		YA5; SETB175; NEV; SETB375; AND; J3!=Z; (if LD!=closing bracket);
 2362/3: 304 000 057                                                   1;		SET47;
 2363/0: 200 264 124                                                   2;		JP5;
 2363/3: 300 016 224|042|223 144 375                                   3;		YA0; DUP; J7=Z; (if T=0);
 2364/4: 167 353|304 000 060|065|200 044 363                           		SHC-11; SET48; REV; J2>=Z; (if T=other);
 2366/1: 052|300 016 233|205 144 370                                   		ERASE; YA7; J4!=Z; (if PROC!=0);
 2367/2: 304 000 061|171 022|200 144 363                               		SET49; M1; J2!=Z; (if E=1);
 2370/4: 052                                                           		ERASE;
 2370/5: 264 024 377|205 264 372                                       4;		J8C1NZ; (if m=1); J6;
 2371/5: 304 000 003|200 330 255                                       5;		SET3; JSP40;
 2372/5: 200 332 271|304 000 001|200 330 165|041|301 016 233|200 360 000
                                                                       6;		JSP55; SET1; JSP36; ZERO; =YA7; EXIT1;
 2375/3: 052|245 024 371                                               7;		ERASE; J5C1Z; (if m=0);
 2376/1: 200 330 216|304 000 001|200 330 255                           		JSP38; SET1; JSP40;
 2377/4: 300 016 226|042|304 000 062|065|167 371|220 044 363           8;		YA2; DUP; SET50; REV; SHC-4; J2<Z; (if F(TYPE)=1);
 2401/5: 052|200 332 271|041|304 003 033|166 361|200 330 115|300 016 241
                                                                       		ERASE; JSP55; ZERO; SETB1433; SHLD-8; JSP34; YA13;
 2404/3: 164 041|056|164 041|171 022|056|300 016 227|304 015 033|167 361
                                                                       		SHL16; +; SHL16; M1; +; YA3; SETB6433; SHC-8;
 2407/1: 304 377 376|200 331 130|164 041|056|304 000 004|200 330 165|151 041
                                                                       		SET-2; JSP45; SHL16; +; SET4; JSP36; M2TOQ1;
 2412/0: 304 000 001|301 016 233|041|301 016 241|041|301 016 226|200 360 000
                                                                       		SET1; =YA7; ZERO; =YA13; ZERO; =YA2; EXIT1;
=== Start P16V-1; at address 1293
                                                                       P16;	(COLON);
                                                                       		(first word of this routine in main loop);
                                                                       		
                                                                       [ good31.txt 
                                                                       [ -- Roderick McL
                                                                       
 2415/0: 042|222 145 020                                               	DUP; J2=Z; (if T=0);
 2415/4: 043|052|015|054|225 145 017                                   	DUPD; ERASE; NEV; AND; J1=Z; (if BG(T)=1);
 2416/5: 304 000 063|200 264 124                                       	SET51; JP5;
 2417/5: 200 273 034                                                   1;	JP59;
 2420/2: 171 022|223 145 024                                           2;	M1; J4=Z; (if E =0, to fail 35 in exp);
 2421/1: 171 030|200 045 023|304 000 201|200 264 124                   	C1; J3>=Z; SET129; JP5;
 2423/0: 263 025 024|304 000 011|200 264 124                           3;	J4C1NZ; SET9; JP5;
 2424/3: 052|052|052                                                   4;	ERASE; ERASE; ERASE;
 2425/0: 304 377 377|200 330 255|304 011 010                           	SET-1; JSP40; SETB4410;
 2426/3: 301 016 224|200 330 216|154 013|304 000 001|041|200 331 153|041
                                                                       	=YA0; JSP38; C0TOQ11; SET1; ZERO; JSP47; ZERO;
 2431/1: 301 016 224|200 264 060                                       	=YA0; JP3;
=== Start P17V1; at address 1309
                                                                       P17V1;	( := );
V-store at 02433 = 121 000 001 037 000 000                             	V0=B 2420 0001 0760 0000;
V-store at 02434 = 130 123 000 000 224 000                             	V1=B 2605 1400 0011 2000;
                                                                       	(first word in main loop);
 2435/0: 171 022|220 145 041                                           	M1; J1=Z; (if E=0);
 2435/5: 300 016 224|042|222 145 054                                   	YA0; DUP; J3=Z; (if T=0);
 2437/0: 304 004 010|042|066|015|054|223 145 041                       	SETB2010; DUP; CAB; NEV; AND; J2=Z; (if bF(T)=1);
 2440/4: 042|056                                                       	DUP; +;
 2441/0: 200 264 124                                                   1;	JP5;
 2441/3: 052|171 350|304 000 001|056|042|170 350                       2;	ERASE; C14; SET1; +; DUP; =C14;
 2443/1: 042|164 123|220 045 041                                       	DUP; SHL41; J1<Z; (if N>63);
 2444/1: 151 001|200 331 063|304 000 001|042|304 000 016|164 121|304 000 004|200 331 130
                                                                       	M0TOQ1; JSP43; SET1; DUP; SET14; SHL40; SET4; JSP45;
 2447/3: 164 021|056|065|200 330 165|042|170 270|041|200 331 153       	SHL8; +; REV; JSP36; DUP; =C11; ZERO; JSP47;
 2451/5: 164 105|300 005 033|056|304 000 006|200 330 115|200 360 000   	SHL34; V0; +; SET6; JSP34; EXIT1;
 2454/2: 300 016 242|221 145 077                                       3;	YA14; J4=Z; (if F=0);
 2455/2: 200 330 276|300 016 231|304 000 013|036|203 145 061           	JSP41; YA5; SET11; -; J6!=Z; (if LD!=for);
 2457/3: 300 276 367|304 000 010|167 361|011|301 276 367               	Y1M11; SETB10; SHC-8; OR; =Y1M11;
 2461/3: 052|304 000 001|200 331 130|100 376|042|164 261|304 000 013   6;	ERASE; SET1; JSP45; M14M15; DUP; SHL-40; SET11;
                                                                       
                                                                       [ good32.txt 
                                                                       [ -- Brian W
                                                                       
 2464/0: 065|200 025 041                                               		REV; J1!=; (if TS!=for);
 2464/4: 052|042|304 000 002|200 331 130|164 021|056|101 376           		ERASE; DUP; SET2; JSP45; SHL8; +; =M14M15;
 2466/5: 164 361|304 377 376|200 333 357|041|200 332 250|300 005 034   		SHL-8; SET-2; JSP63; ZERO; JSP54; V1;
 2471/2: 304 000 005|200 330 115|304 000 001|042|042|027               		SET5; JSP34; SET1; DUP; DUP; NEG;
 2473/2: 200 331 130|304 000 224|164 061|056|164 041|065|200 330 165   		JSP45; SET148; SHL24; +; SHL16; REV; JSP36;
 2475/5: 151 001|301 016 241|200 360 000                               		M0TOQ1; =YA13; EXIT1;
 2477/1: 304 000 067|300 016 233|200 145 041                           4;		SET55; YA7; J1!=Z; (if PROC!=0);
 2500/4: 301 016 262|200 330 216|200 330 276|042|100 376|164 261|015|304 000 277
                                                                       		=YA30; JSP38; JSP41; DUP; M14M15; SHL-40; NEV; SETB277;
 2503/4: 054|200 145 105                                               		AND; J5!=Z; (if TS!=ST/STA);
 2504/2: 052|304 000 120                                               		ERASE; SET80;
 2505/0: 164 121|304 000 002|056|304 000 001|200 330 165|200 360 000   5;		SHL40; SET2; +; SET1; JSP36; EXIT1;
=== Start P18V-1; at address 1352
                                                                       P18;	(COMMA  9/4/63);
 2510/0: 300 016 233|225 145 112                                       		YA7; J2=Z; (if PROC=0);
 2511/0: 200 332 326|041|301 016 226                                   		JSP57; ZERO; =YA2;
 2512/1: 052|200 360 000                                               1;		ERASE; EXIT1;
 2512/5: 300 016 242|223 145 123                                       2;		YA14; J3=Z; (if F=0);
 2513/5: 200 333 322|304 000 001|042|304 130 224                       		JSP62; SET1; DUP; SETB54224;
 2515/3: 164 101|042|304 000 002|200 330 115|164 021|304 377 377       		SHL32; DUP; SET2; JSP34; SHL8; SET-1;
 2517/5: 200 331 130|164 041|056|065|200 330 165|301 016 241|304 001 304|301 016 226|200 360 000
                                                                       		JSP45; SHL16; +; REV; JSP36; =YA13; SETB704; =YA2; EXIT1;
 2523/3: 300 016 224|042|304 000 010|054|224 145 147|052|052|304 000 001|042|200 330 276
                                                                       3;		YA0; DUP; SET8; AND; J7=Z; ERASE; ERASE; SET1; DUP; JSP41;
 2526/5: 200 330 171|100 376|042|164 261|304 000 114|201 025 133       		JSP37; M14M15; DUP; SHL-40; SET76; J4!=; (if TS!=[);
 2531/1: 052|304 001 000|164 061|056|101 376|200 360 000               		ERASE; SETB400; SHL24; +; =M14M15; EXIT1;
 2533/1: 304 000 016|036|304 000 117|065|223 145 135                   4;		SET14; -; SET79; REV; J6=Z; (if TS=switch begin);
 2535/0: 200 264 124                                                   5;		JP5;
 2535/3: 052|042|164 321|164 021|304 000 037|056|164 061|304 006 033   6;		ERASE; DUP; SHL-24; SHL8; SET31; +; SHL24; SETB3033;
 2540/0: 166 361|200 330 115|164 021|304 377 375|200 331 130|065|041   		SHLD-8; JSP34; SHL8; SET-3; JSP45; REV; ZERO;
 2542/3: 200 332 250|304 016 000|164 021|304 377 373|200 331 130|056|164 041
                                                                       		JSP54; SETB7000; SHL8; SET-5; JSP45; +; SHL16;
 2545/2: 304 377 376|200 331 130|056|164 021|101 376|200 360 000       		SET-2; JSP45; +; SHL8; =M14M15; EXIT1;
 2547/4: 041|203 025 151                                               7;		ZERO; J8!=; (if T!=0);
                                                                       		
                                                                       [ good33.txt 
                                                                       [ -- Brian W
                                                                       
 2550/2: 052|200 333 034|200 360 000                                   		ERASE; JSP59; EXIT1;
 2551/3: 304 010 004|042|066|015|054|203 145 156                       8;		SETB4004; DUP; CAB; NEV; AND; J9!=Z; (if aG(T)!=1);
 2553/1: 154 013|052|304 000 120|171 022|220 145 135                   		C0TOQ11; ERASE; SET80; M1; J5=Z; (if E=0);
 2555/0: 052|041|041|200 331 153|200 360 000                           		ERASE; ZERO; ZERO; JSP47; EXIT1;
 2556/3: 100 376|042|164 261|042|304 000 031|015|304 000 373|054       9;		M14M15; DUP; SHL-40; DUP; SETB31; NEV; SETB373; AND;
 2560/5: 201 145 166                                                   		J10!=Z; (if TS!= MSF/MOSF);
 2561/2: 052|143 020|304 000 121|260 025 135                           		ERASE; DC1; SET81; J5C1NZ; (if m!=1);
 2562/5: 052|300 016 227|101 376|304 000 020                           		ERASE; YA3; =M14M15; SET16;
 2564/2: 056|304 000 001|200 330 165|052|200 360 000                   		+; SET1; JSP36; ERASE; EXIT1;
 2566/1: 065|052|304 000 033|201 025 173                               10;		REV; ERASE; SET27; J12!=; (if TS != UJ);
 2567/3: 164 005|300 016 225|220 145 135                               		SHL2; YA1; J5=Z; (if D=0);
 2570/5: 304 001 035                                                   		SETB435;
 2571/2: 041|166 121|200 330 165|052|052|200 360 000                   11;		ZERO; SHLD40; JSP36; ERASE; ERASE; EXIT1;
 2573/1: 304 000 216|015|304 000 237|054|203 145 177                   12;		SETB216; NEV; SETB237; AND; J13!=Z; (if TS=other);
 2575/0: 304 000 154                                                   		SET108;
 2575/3: 300 016 225|200 145 135                                       		YA1; J5!=Z; (if D=1);
 2576/3: 304 001 031|202 265 171                                       		SETB431; J11;
 2577/3: 200 333 034|200 360 000                                       13;		JSP59; EXIT1;
=== Start P19V-1; at address 1409
                                                                       P19;	(IF);
                                                                       		(first word in main loop);
 2601/0: 304 000 155|015|304 000 355|054|223 145 216                   		SETB155; NEV; SETB355; AND; J4=Z; ((if LD=)/]);
 2602/5: 304 000 001|200 330 255                                       		SET1; JSP40;
 2603/5: 171 022|220 145 217                                           		M1; J5=Z; (if E=0);
 2604/4: 300 016 224|042|201 145 215                                   		YA0; DUP; J3!=Z; (if T!=0);
 2605/5: 052|200 330 216                                               		ERASE; JSP38;
 2606/3: 200 332 271                                                   1;		JSP55;
 2607/0: 167 361|300 016 241|164 041|300 016 226|056|164 041|171 022|056|304 000 002
                                                                       2;		SHC-8; YA13; SHL16; YA2; +; SHL16; M1; +; SET2;
 2612/1: 200 330 165|041|301 016 241|151 001|304 001 204|301 016 226|200 360 000
                                                                       		JSP36; ZERO; =YA13; M0TOQ1; SETB604; =YA2; EXIT1;
 2615/1: 167 353|223 045 206                                           3;		SHC-11; J1<Z; (if b(T)=1);
                                                                       
                                                                       [ good34.txt 
                                                                       [ -- Brian W
                                                                       
 2616/0: 304 000 072                                                   		SET58;
 2616/3: 200 264 124                                                   4;		JP5;
 2617/0: 300 016 231|304 000 022|015|304 000 023|054|200 145 207       5;		YA5; SETB22; NEV; SETB23; AND; J2!=Z; (if LD=arith/log op);
 2621/2: 042|056|200 264 124                                           		DUP; +; JP5;
                                                                       		
=== Start P20V-1; at address 1427
                                                                       P20;	(THEN);
 2623/0: 171 022|205 145 236                                           		M1; J2!=Z; (if E=1);
 2623/5: 100 376|164 261|042|304 000 051|015|304 000 257|054           		M14M15; SHL-40; DUP; SETB51; NEV; SETB257; AND;
 2626/0: 223 145 230                                                   		J5=Z; (if TS= if/else);
 2626/3: 304 000 036|015|304 000 037|054|202 145 232                   		SETB36; NEV; SETB37; AND; J1!=Z; (if TS=other);
 2630/2: 042                                                           DUP;
 2630/3: 052|304 000 040|300 016 226|011|301 016 226                   5;		ERASE; SETB40; YA2; OR; =YA2;
 2632/2: 304 000 001|042|200 330 276|304 000 002|200 330 171|100 376|164 261|304 000 071|036
                                                                       1;		SET1; DUP; JSP41; SET2; JSP37; M14M15; SHL-40; SET57; -;
 2635/5: 222 145 237                                                   		J3=Z; (if TS=if);
 2636/2: 304 000 073                                                   		SET59;
 2636/5: 200 264 124                                                   2;		JP5;
 2637/2: 141 360|172 370|100 376|170 076|171 070|301 016 241|171 064|301 016 226|151 061
                                                                       3;		M-I15; =+C15; M14M15; =Q3; C3; =YA13; I3; =YA2; M3TOQ1;
 2642/4: 167 361|304 000 001|200 331 130|164 041|056|171 022           		SHC-8; SET1; JSP45; SHL16; +; M1;
 2644/5: 224 145 245                                                   		J4=Z; (if E=0);
 2645/2: 033|027                                                       		NOT; NEG;
 2645/4: 101 376|041|304 003 027|166 361|200 330 115|200 360 000       4; 		=M14M15; ZERO; SETB1427; SHLD-8; JSP34; EXIT1;
=== Start P21V-1; at address 1448
                                                                       P21;	(ELSE);
                                                                       		(first word in main loop);
 2650/0: 304 017 377|054|304 001 155|036|220 145 275                   		SETB7777; AND; SETB555; -; J4=Z; (if TS=thens);
 2651/5: 164 261|304 000 036|015|304 000 037|054|204 145 255           		SHL-40; SETB36; NEV; SETB37; AND; J1!=Z; (if TS=other);
 2654/0: 304 000 040|300 016 226|011|301 016 226                       		SETB40; YA2; OR; =YA2;
 2655/4: 304 000 001|042|200 330 276|033|027|200 330 171|100 376|042|164 261
                                                                       1; 		SET1; DUP; JSP41; NOT; NEG; JSP37; M14M15; DUP; SHL-40;
 2660/3: 304 000 155|036|224 145 262                                   		SET109; -; J2=Z; (if TS=thens/thene);
 2661/4: 304 000 074|200 264 124                                       		SET60; JP5;
                                                                       [ good35.txt 
                                                                       [ -- Brian W
                                                                       
 2662/4: 042|304 000 003|200 331 130|066|041|200 332 250|041|304 003 033
                                                                       2;		DUP; SET3; JSP45; CAB; ZERO; JSP54; ZERO; SETB1433;
 2665/2: 166 361|200 330 115|304 000 017|054|042|223 145 271           		SHLD-8; JSP34; SETB17; AND; DUP; J3=Z; (if TS=thenE);
 2667/3: 151 041|304 001 204|301 016 226|041|301 016 241               		M2TOQ1; SETB604; =YA2; ZERO; =YA13;
 2671/3: 027|304 002 151|167 361|056|304 377 376|200 331 130           3;		NEG; SETB1151; SHC-8; +; SET-2; JSP45;
 2673/4: 164 041|056|101 376|200 360 000                               		SHL16; +; =M14M15; EXIT1;
 2675/0: 200 330 227|204 265 262                                       4;		JSP39; J2;
=== Start P22V-1; at address 1470
                                                                       P22;	(GO TO);
 2676/0: 240 025 277                                                   		J1C1Z; (if m=0);
 2676/3: 200 264 124                                                   		JP5;
 2677/0: 301 016 262|041|033|200 330 255|200 330 216|304 002 024       1;		=YA30; ZERO; NOT; JSP40; JSP38; SETB1024;
 2701/2: 167 361|304 000 001|200 330 165|151 001|304 001 010|301 016 226|200 360 000
                                                                       		SHC-8; SET1; JSP36; M0TOQ1; SETB410; =YA2; EXIT1;
=== Start P23V-1; at address 1477
                                                                       P23;	(FOR ELEMENT);
 2705/0: 304 000 122|300 016 242|200 145 307                           		SET82; YA14; J2!=Z; (if F=1);
 2706/3: 200 264 124                                                   1;		JP5;
 2707/0: 052|304 000 001|200 330 276|304 000 002|200 330 171|100 376|170 076|304 000 123
                                                                       2;		ERASE; SET1; JSP41; SET2; JSP37; M14M15; =Q3; SET83;
 2712/2: 171 070|304 224 000|036|203 145 306                           		C3; SETB112000; -; J1!=Z; (if TS!=FORS1);
 2713/5: 052|171 062|225 145 322                                       		ERASE; M3; J6=Z; (if a!=-1);
 2714/5: 042|304 000 174|036                                           		DUP; SET124; -;
 2715/4: 304 000 124|065|203 145 306                                   3;		SET84; REV; J1!=Z; (if del!=until and a=-1);
 2716/5: 052|052|304 000 364|167 361                                   		ERASE; ERASE; SET244; SHC-8;
 2720/0: 101 376|304 000 001                                           4;		=M14M15; SET1;
 2720/5: 304 130 364|164 101|065|200 330 115|200 360 000               5;		SETB54364; SHL32; REV; JSP34; EXIT1;
 2722/5: 304 000 174|224 025 315                                       6;		SET124; J3=; (if del=until and a!=-1);
 2723/5: 304 000 374|223 025 327                                       		SET252; J7=; (if del=while);
 2724/5: 052|304 000 020|170 062|171 076|101 376|304 000 002|205 265 320
                                                                       		ERASE; SETB20; =M3; Q3; =M14M15; SET2; J5;
 2727/3: 304 001 204|301 016 226|041|301 016 241|304 000 050|171 064|042
                                                                       7;		SETB604; =YA2; ZERO; =YA13; SET40; I3; DUP;
 2732/1: 304 037 377|054|170 062|164 355|304 000 070|054               		SETB17777; AND; =M3; SHL-10; SETB70; AND;
 2734/1: 036|170 070|042|164 060|300 076 371|011|301 076 371|167 361|200 265 320
                                                                       		-; =C3; DUP; SHLC3; Y3M3; OR; =Y3M3; SHC-8; J4;
=== Start P24V0; at address 1505
                                                                       P24V0;	(DO);
                                                                       		
                                                                       [ good36.txt 
                                                                       [ -- Brian W
                                                                       
V-store at 02740 = 130 133 000 000 125 000                             		V0=B 2605 5400 0005 2400;
 2741/0: 200 333 322|171 350|033|027|042|170 350|042|167 363           		JSP62; C14; NOT; NEG; DUP; =C14; DUP; SHC-7;
 2743/1: 201 045 344                                                   		J2>=Z; (if n <= 63);
 2743/4: 200 264 124                                                   1;		JP5;
 2744/1: 052|100 376|041|033|164 041|300 016 235|056|164 041           2;		ERASE; M14M15; ZERO; NOT; SHL16; YA9; +; SHL16;
 2746/2: 300 016 240|056|101 376|164 021|042|304 000 004|042|301 016 235
                                                                       		YA12; +; =M14M15; SHL8; DUP; SET4; DUP; =YA9;
 2751/0: 200 331 130|065|041|200 332 250|164 361|300 005 340|304 000 011|200 330 115
                                                                       		JSP45; REV; ZERO; JSP54; SHL-8; V0; SET9; JSP34;
 2754/1: 304 377 374|200 331 130|164 041|304 000 156|167 361|056       		SET-4; JSP45; SHL16; SET110; SHC-8; +;
 2756/3: 300 016 254|164 011|011|304 000 001|200 330 165|041|301 016 254
                                                                       		YA24; SHL4; OR; SET1; JSP36; ZERO; =YA24;
 2761/1: 151 041|041|301 016 241|041|301 016 242|304 001 204|301 016 226
                                                                       		M2TOQ1; ZERO; =YA13; ZERO; =YA14; SETB604; =YA2;
 2763/5: 171 302|301 016 240|041|200 330 143|041|303 316 370|200 360 000
                                                                       		M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; EXIT1;
=== Start P25V-1; at address 1527
                                                                       P25;	(FOR);
 2767/0: 042|056|242 025 370                                           		DUP; +; J2C1Z; (if m=0);
 2767/5: 200 264 124                                                   1;		JP5;
 2770/2: 300 016 242|205 145 367                                       2;		YA14; J1!=Z; (if F!=0);
 2771/2: 041|033|200 330 255|200 330 216|041|304 003 033               		ZERO; NOT; JSP40; JSP38; ZERO; SETB1433;
 2773/2: 166 361|200 330 115|167 357|171 344|164 033|171 024|056|164 061|056
                                                                       		SHLD-8; JSP34; SHC-9; I14; SHL13; I1; +; SHL24; +;
 2776/1: 304 000 001|042|301 016 242|200 330 165|304 001 304|301 016 226|200 360 000
                                                                       		SET1; DUP; =YA14; JSP36; SETB704; =YA2; EXIT1;
=== Start P26V0; at address 1539
                                                                       P26V0;	(semi colon);
V-store at 03002 = 005 033 000 000 002 134                             		V0=B 0121 5400 0000 1134;
 3003/0: 052|300 016 224|042|220 146 041                               		ERASE; YA0; DUP; J10=Z; (if T=0);
 3004/2: 304 016 017|054|304 010 004|221 026 037                       		SETB7017; AND; SETB4004; J9=; (if aG(T)=1);
 3006/0: 304 004 004|224 026 032                                       		SETB2004; J7=; (if bG(T)=1);
 3007/0: 304 004 010|036|304 000 036|065|222 146 011                   		SETB2010; -; SET30; REV; J2=Z; (if bF(type[I])=1);
 3010/5: 200 264 124                                                   1;		JP5;
 3011/2: 052|304 000 001|042|200 330 276|200 330 171|100 376|042|164 261
                                                                       2;		ERASE; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40;
 3014/0: 304 000 016|205 026 010                                       		SET14; J1!=; (if TS!=switch begin);
 3015/0: 052|304 000 004|200 331 130|164 041|300 006 002|056           		ERASE; SET4; JSP45; SHL16; V0; +;
 3017/1: 041|166 021|200 330 115|141 360|304 000 001|172 370|143 340|151 041
                                                                       		ZERO; SHLD8; JSP34; M-I15; SET1; =+C15; DC14; M2TOQ1;
                                                                       		
                                                                       		
                                                                       [ good37.txt 
                                                                       [ -- Brian W
                                                                       
 3022/0: 304 001 204|301 016 226|164 021|042|304 377 376|200 331 130   		SETB604; =YA2; SHL8; DUP; SET-2; JSP45;
 3024/3: 065|041|200 332 250|167 041|164 041                           		REV; ZERO; JSP54; SHC16; SHL16;
 3026/0: 042|200 146 030                                               3;		DUP; J6!=Z; (if x!=0);
 3026/4: 052                                                           		ERASE;
 3026/5: 041|301 016 224                                               4;		ZERO; =YA0;
 3027/3: 200 360 000                                                   5;		EXIT1;
 3030/0: 041|033|200 331 130|065|041|200 332 250|300 016 247|200 266 026
                                                                       6;		ZERO; NOT; JSP45; REV; ZERO; JSP54; YA19; J3;
 3032/4: 052|304 000 015|265 026 010                                   7;		ERASE; SET13; J1C1NZ; (if m!=0);
 3033/5: 304 000 177|300 016 231|036|205 146 010                       		SET127; YA5; -; J1!=Z; (if LD!=] );
 3035/3: 200 330 171                                                   		JSP37;
 3036/0: 041|301 016 225|205 266 026                                   8;		ZERO; =YA1; J4;
 3037/1: 052|154 013|041|041|200 331 153|200 266 036                   9;		ERASE; C0TOQ11; ZERO; ZERO; JSP47; J8;
 3041/0: 052|200 330 227                                               10;		ERASE; JSP39;
 3041/4: 304 000 001|200 330 171|200 333 021|304 000 116|202 026 045   13;		SET1; JSP37; JSP58; SET78; J11!=; (if TS != proc begin);
 3044/1: 041|200 332 056|200 360 000                                   		ZERO; JSP52; EXIT1;
 3045/2: 304 000 356|223 026 050                                       11;		SETB356; J12=; (fail if TS = for begin (BL));
 3046/2: 065|052|304 000 016|015|304 000 037|054|223 146 027           		REV; ERASE; SETB16; NEV; SETB37; AND; J5=Z; (if TS = other);
 3050/3: 304 000 041|200 264 124                                       12;		SET33; JP5;
=== Start P29V135; at address 1714
                                                                       P29V135;		(ERR);
V-store at 03052 = 010 041 346 206 233 000                             		V0=B 0202 0746 4151 5400;
V-store at 03053 = 000 000 002 262 233 245                             		V1=B 0000 0002 5451 5645;
V-store at 03054 = 000 000 000 000 000 000                             		V2=0;
V-store at 03055 = 000 000 000 000 000 000                             		V3=0;
V-store at 03056 = 214 146 243 220 146 254                             		V4=B 4306 3243 4406 3254;
V-store at 03057 = 224 146 241 234 146 263                             		V5=B 4506 3241 4706 3263;
V-store at 03060 = 240 146 260 000 000 000                             		V6=B 5006 3260 0000 0000;
V-store at 03061 = 322 233 356 002 231 045                             		V7=B 6451 5756 0051 4445;
V-store at 03062 = 273 112 146 246 134 200                             		V8=B 5664 5146 5145 6200;
V-store at 03063 = 000 000 000 004 146 246                             		V9=B 0000 0000 0106 3246;
                                                                       		
                                                                       [ good38.txt 
                                                                       [ -- Brian W
                                                                       
V-store at 03064 = 322 134 200 000 000 000                             		V10=B 6445 6200 0000 0000;
V-store at 03065 = 000 000 000 250 146 254                             		V11=B 0000 0000 5206 3254;
V-store at 03066 = 000 143 325 000 000 000                             		V12=B 0006 1725 0000 0000;
V-store at 03067 = 220 000 000 000 146 107                             		V13=B 4400 0000 0006 3107;
V-store at 03070 = 010 146 247 014 146 244                             		V14=B 0206 3247 0306 3244;
V-store at 03071 = 273 100 007 034 161 307                             		V15=B 5664 0007 0707 0707;
V-store at 03072 = 034 013 366 227 053 045                             		V16=B 0700 5766 4562 5445;
V-store at 03073 = 272 175 050 377 377 377                             		V17=B 5647 6450 7777 7777;
V-store at 03074 = 020 146 263 000 000 000                             		V18=B 0406 3263 0000 0000;
V-store at 03075 = 000 000 000 003 051 154                             		V19=B 0000 0000 0062 4554;
V-store at 03076 = 261 250 232 025 252 332                             		V20=B 5432 4232 0532 5332;
V-store at 03077 = 002 312 156 224 017 377                             		V21=B 0054 5156 4500 7777;
V-store at 03100 = 000 000 000 030 146 257                             		V22=B 0000 0000 0606 3257;
V-store at 03101 = 034 161 307 034 161 307                             		V23=B 0707 0707 0707 0707;
V-store at 03102 = 225 253 232 320 161 307                             		V24=B 4532 5632 6407 0707;
V-store at 03103 = 260 161 307 034 161 307                             		V25=B 5407 0707 0707 0707;
V-store at 03104 = 344 161 307 034 161 307                             		V26=B 7107 0707 0707 0707;
V-store at 03105 = 264 146 242 000 000 000                             		V27=B 5506 3242 0000 0000;
V-store at 03106 = 215 252 007 034 161 307                             		V28=B 4332 5007 0707 0707;
V-store at 03107 = 152 106 265 153 046 245                             		V29=B 3244 3265 3262 3245;
V-store at 03110 = 000 000 000 302 374 351                             		V30=B 0000 0000 6057 6351;
V-store at 03111 = 205 254 232 344 161 307                             		V31=B 4132 6232 7107 0707;
V-store at 03112 = 000 000 000 034 146 251                             		V32=B 0000 0000 0706 3251;
V-store at 03113 = 152 026 256 034 161 307                             		V33=B 3241 3256 0707 0707;
V-store at 03114 = 270 161 307 034 161 307                             		V34=B 5607 0707 0707 0707;
V-store at 03115 = 224 161 307 034 161 307                             		V35=B 4507 0707 0707 0707;
V-store at 03116 = 000 000 000 270 146 266                             		V36=B 0000 0000 5606 3266;
V-store at 03117 = 260 161 307 034 161 307                             		V37=B 5407 0707 0707 0707;
V-store at 03120 = 235 251 132 310 161 307                             		V38=B 4732 4532 6207 0707;
                                                                       		
                                                                       [ good39.txt 
                                                                       [ -- Brian W
                                                                       
V-store at 03121 = 271 251 307 034 161 307                             		V39=B 5632 4707 0707 0707;
V-store at 03122 = 224 161 307 034 161 307                             		V40=B 4507 0707 0707 0707;
V-store at 03123 = 010 171 045 262 233 151                             		V41=B 0207 4445 5451 5551;
V-store at 03124 = 000 144 107 000 000 000                             		V42=B 0006 2107 0000 0000;
V-store at 03125 = 000 000 000 000 146 222                             		V43=B 0000 0000 0006 3222;
V-store at 03126 = 010 177 377 376 231 045                             		V44=B 0207 7777 7751 4445;
V-store at 03127 = 000 167 107 000 000 000                             		V45=B 0007 3507 0000 0000;
V-store at 03130 = 031 201 354 246 351 100                             		V46=B 0630 0754 5156 4500;
V-store at 03131 = 000 145 007 000 146 221                             		V47=B 0006 2407 0006 3221;
V-store at 03132 = 031 255 032 311 255 132                             		V48=B 0632 6432 6232 6532;
V-store at 03133 = 224 161 307 034 161 307                             		V49=B 4507 0707 0707 0707;
V-store at 03134 = 031 251 232 205 253 032                             		V50=B 0632 4632 4132 5432;
V-store at 03135 = 315 251 107 034 161 307                             		V51=B 6332 4507 0707 0707;
V-store at 03136 = 040 146 262 051 250 132                             		V52=B 1006 3262 1232 4132;
V-store at 03137 = 000 000 000 000 000 000                             		V53=0;
V-store at 03140 = 000 000 000 000 000 000                             		V54=0;
V-store at 03141 = 000 143 307 000 000 000                             		V55=B 0006 1707 0000 0000;
V-store at 03142 = 060 146 245 064 146 245                             		V56=B 1406 3245 1506 3245;
V-store at 03143 = 010 170 357 273 075 041                             		V57=B 0207 4357 5663 6441;
V-store at 03144 = 000 000 000 070 146 264                             		V58=B 0000 0000 1606 3264;
V-store at 03145 = 000 000 000 003 321 307                             		V59=B 0000 0000 0075 0707;
V-store at 03146 = 034 012 156 206 070 345                             		V60=B 0700 5156 4143 4345;
V-store at 03147 = 000 167 207 000 146 007                             		V61=B 0007 3607 0006 3007;
V-store at 03150 = 317 072 142 262 121 307                             		V62=B 6363 5142 5445 0707;
V-store at 03151 = 000 146 224 000 000 000                             		V63=B 0006 3224 0000 0000;
V-store at 03152 = 000 167 007 000 000 000                             		V64=B 0007 3407 0000 0000;
V-store at 03153 = 000 000 000 000 147 307                             		V65=B 0000 0000 0006 3707;
V-store at 03154 = 300 146 265 000 146 107                             		V66=B 6006 3265 0006 3107;
V-store at 03155 = 104 146 245 000 144 207                             		V67=B 2106 3245 0006 2207;
                                                                       [ good40.txt 
V-store at 03156 = 304 146 251 310 146 263                             		V68=B 6106 3251 6206 3263;
V-store at 03157 = 031 253 332 310 161 307                             		V69=B 0632 5732 6207 0707;
V-store at 03160 = 031 253 300 153 106 257                             		V70=B 0632 5700 3264 3257;
V-store at 03161 = 031 253 307 034 161 307                             		V71=B 0632 5707 0707 0707;
V-store at 03162 = 031 255 032 225 254 007                             		V72=B 0632 6432 4532 6007;
V-store at 03163 = 036 106 246 151 237 377                             		V73=B 0744 3246 3231 7777;
V-store at 03164 = 031 255 332 270 161 307                             		V74=B 0632 6732 5607 0707;
V-store at 03165 = 031 251 207 034 161 307                             		V75=B 0632 4607 0707 0707;
V-store at 03166 = 031 251 132 205 253 007                             		V76=B 0632 4532 4132 5407;
V-store at 03167 = 000 145 207 000 000 000                             		V77=B 0006 2607 0000 0000;
V-store at 03170 = 036 306 247 152 366 254                             		V78=B 0754 3247 3257 3254;
V-store at 03171 = 000 144 307 000 000 000                             		V79=B 0006 2307 0000 0000;
V-store at 03172 = 031 253 232 220 161 307                             		V80=B 0632 5632 4407 0707;
V-store at 03173 = 031 253 032 315 251 107                             		V81=B 0632 5432 6332 4507;
V-store at 03174 = 031 252 032 225 253 207                             		V82=B 0632 5032 4532 5607;
V-store at 03175 = 110 146 251 000 000 000                             		V83=B 2206 3251 0000 0000;
V-store at 03176 = 000 000 000 115 251 132                             		V84=B 0000 0000 2332 4532;
V-store at 03177 = 031 254 132 330 161 307                             		V85=B 0632 6132 6607 0707;
V-store at 03200 = 031 253 132 300 161 307                             		V86=B 0632 5532 6007 0707;
V-store at 03201 = 037 206 251 153 117 377                             		V87=B 0770 3251 3264 7777;
V-store at 03202 = 031 254 207 034 161 307                             		V88=B 0632 6207 0707 0707;
V-store at 03203 = 031 253 232 220 161 307                             		V89=B 0632 5632 4407 0707;
V-store at 03204 = 031 253 332 320 161 307                             		V90=B 0632 5732 6407 0707;
V-store at 03205 = 000 000 000 000 147 207                             		V91=B 0000 0000 0006 3607;
V-store at 03206 = 010 177 377 262 233 245                             		V92=B 0207 7777 5451 5645;
V-store at 03207 = 000 163 307 000 000 000                             		V93=B 0007 1707 0000 0000;
V-store at 03210 = 034 013 257 320 015 163                             		V94=B 0700 5657 6400 6563;
V-store at 03211 = 000 146 223 000 000 000                             		V95=B 0006 3223 0000 0000;
V-store at 03212 = 226 100 244 226 073 041                             		V96=B 4544 0244 4543 5441;
                                                                       		
                                                                       [ good41.txt 
                                                                       [ -- Roderick McL
                                                                       
V-store at 03213 = 010 171 156 220 010 357                             	V97=B 0207 4556 4400 4357;
V-store at 03214 = 266 331 156 320 161 307                             	V98=B 5555 4556 6407 0707;
V-store at 03215 = 120 146 257 000 000 000                             	V99=B 2406 3257 0000 0000;
V-store at 03216 = 010 173 257 364 010 146                             	V100=B 0207 5657 7500 4146;
V-store at 03217 = 322 134 200 303 053 347                             	V101=B 6445 6200 6062 5747;
V-store at 03220 = 262 233 245 000 000 000                             	V102=B 5451 5645 0000 0000;
V-store at 03221 = 031 253 332 265 253 132                             	V103=B 0632 5732 5532 5532;
V-store at 03222 = 031 250 132 211 251 132                             	V104=B 0632 4132 4232 4532;
V-store at 03223 = 031 254 232 311 250 132                             	V105=B 0632 6232 6232 4132;
V-store at 03224 = 312 131 000 276 340 007                             	V106=B 6245 4400 5756 0007;
V-store at 03225 = 031 255 332 245 255 032                             	V107=B 0632 6732 5132 6432;
V-store at 03226 = 153 046 257 152 066 245                             	V108=B 3262 3257 3243 3245;
V-store at 03227 = 000 144 007 000 000 000                             	V109=B 0006 2007 0000 0000;
V-store at 03230 = 031 252 132 211 254 232                             	V110=B 0632 5132 4232 6232;
V-store at 03231 = 000 145 107 000 000 000                             	V111=B 0006 2507 0000 0000;
V-store at 03232 = 032 366 257 152 306 245                             	V112=B 0657 3257 3254 3245;
V-store at 03233 = 031 251 132 235 252 132                             	V113=B 0632 4532 4732 5132;
V-store at 03234 = 031 250 132 261 255 132                             	V114=B 0632 4132 5432 6532;
V-store at 03235 = 124 146 241 000 000 000                             	V115=B 2506 3241 0000 0000;
V-store at 03236 = 031 253 232 321 252 132                             	V116=B 0632 5632 6432 5132;
V-store at 03237 = 031 253 232 321 251 132                             	V117=B 0632 5632 6432 4532;
V-store at 03240 = 031 255 032 311 252 132                             	V118=B 0632 6432 6232 5132;
V-store at 03241 = 031 252 032 245 253 032                             	V119=B 0632 5032 5132 5432;
V-store at 03242 = 010 173 257 000 146 242                             	V120=B 0207 5657 0006 3242;
V-store at 03243 = 152 126 247 152 226 256                             	V121=B 3245 3247 3251 3256;
V-store at 03244 = 000 000 000 000 000 000                             	V122=0;
V-store at 03245 = 000 000 000 000 000 000                             	V123=0;
V-store at 03246 = 010 175 156 256 353 367                             	V124=B 0207 6556 5356 5767;
V-store at 03247 = 000 145 307 000 000 000                             	V125=B 0006 2707 0000 0000;
                                                                       
                                                                       [ good42.txt 
                                                                       [ -- Roderick McL
                                                                       
V-store at 03250 = 010 172 344 231 220 064                             	V126=B 0207 5344 4631 0064;
V-store at 03251 = 000 147 107 000 000 000                             	V127=B 0006 3507 0000 0000;
V-store at 03252 = 276 360 063 266 033 054                             	V128=B 5757 0063 5541 5454;
V-store at 03253 = 270 010 350 207 041 307                             	V129=B 5600 4350 4162 0707;
V-store at 03254 = 314 146 267 000 000 000                             	V130=B 6306 3267 0000 0000;
V-store at 03255 = 130 146 256 000 000 000                             	V131=B 2606 3256 0000 0000;
V-store at 03256 = 001 004 020 000 000 000                             	V132=B 0020 2020 0000 0000;
V-store at 03257 = 000 000 000 000 000 000                             	V133=0;
V-store at 03260 = 010 170 245 216 035 163                             	V134=B 0207 4245 4341 6563;
V-store at 03261 = 224 013 346 003 377 377                             	V135=B 4500 5746 0077 7777;
                                                                       
                                                                       	(ERR CONT,D);
                                                                       	(print error message);
 3262/0: 300 016 230|304 000 377|036|201 146 264                       	YA4; SETB377; -; J6!=Z; (to print NO begin);
 3263/4: 201 260 274                                                   	J1P0;
 3264/1: 171 156|301 006 244|203 324 201                               6;	Q6; =V122; JS2P5;
 3265/3: 300 016 260|170 150|171 156|200 336 115                       	YA28; =C6; Q6; JSP114; (output fail);
 3267/1: 042|200 326 322|164 075|300 006 053|011|301 006 054|201 327 025
                                                                       	DUP; JS10; SHL30; V1; OR; =V2; JS25; (output fail no line etc);
 3271/5: 171 076|301 006 257|300 016 230|170 142|304 006 056|170 062|104 143
                                                                       	Q3; =V133; YA4; =M6; SETAV4; =M3; M3M6H; (del table look up);
 3274/4: 304 006 055|170 142|300 006 123|301 006 054|042|164 255|204 146 310
                                                                       	SETAV3; =M6; V41; =V2; DUP; SHL-42; J9!=Z;
                                                                       	(for rest of del);
 3277/3: 164 335|300 006 064|011|301 006 055                           	SHL-18; V10; OR; =V3;
 3301/0: 171 156|200 336 115|300 016 261|223 146 323                   1;	Q6; JSP114; YA29; J11=Z; (if no ident to output);
 3302/5: 300 006 126|301 006 054|300 006 062|301 006 055|171 156|200 336 115|300 016 261|201 327 004|171 156|200 336 115
                                                                       	V44; =V2; V8; =V3; Q6; JSP114; YA29; JS20; Q6; JSP114;
 3307/3: 041|301 016 261|203 266 323                                   	ZERO; =YA29; J11;
 3310/4: 041|166 015|065|164 321|300 006 064|011|304 000 006|011|301 006 055
                                                                       9;	ZERO; SHLD6; REV; SHL-24; V10; OR; SET6; OR; =V3;
 3313/3: 171 156|200 336 115|300 006 101|301 006 055|042|170 062|300 066 156|301 006 054|167 365
                                                                       	Q6; JSP114; V23; =V3; DUP; =M3; V68M3; =V2; SHC-6;
 3317/1: 200 046 301|304 377 335|172 062|300 066 102|301 006 055|200 266 301
                                                                       	J1>=Z; SET-35; =+M3; V24M3; =V3; J1;
 3322/0: 200 334 117|300 014 115|200 360 000                           10;	JSP127; V2P127; EXIT1;
                                                                       [ good43.txt 
                                                                       [ -- Roderick McL
                                                                       
 3323/3: 300 012 105|221 146 337|300 006 260|301 006 054|300 006 261|301 006 055|171 156|200 336 115
                                                                       11;	V5P53; J19=Z; V134; =V2; V135; =V3; Q6; JSP114;
 3327/2: 300 012 105|170 262|300 276 370|201 327 004|171 156|200 336 115|304 006 137|170 144
                                                                       	V5P53; =M11; Y2M11; JS20; Q6; JSP114; SETAV53P29; =I6;
 3332/5: 304 006 140|170 142|304 000 002|304 361 300|171 156|301 012 003|200 332 025
                                                                       	SETAV54P29; =M6; SET2; SETB170700; Q6; =V0P50; JS12P50;
 3336/0: 041|301 012 105|204 266 347                                   	ZERO; =V5P53; J5;
 3337/1: 300 004 103|224 146 347|300 006 260|301 006 054|300 006 261|301 006 055|171 156|200 336 115|300 004 103|164 377|200 326 322
                                                                       19;	V1P4; J5=Z; V134; =V2; V135; =V3; Q6; JSP114; V1P4; SHL-1; JS10;
 3344/2: 300 006 220|011|301 006 054|171 144|170 142|171 156|200 336 115|041|301 004 103
                                                                       	V102; OR; =V2; I6; =M6; Q6; JSP114; ZERO; =V1P4;
 3347/4: 300 006 257|170 076|304 000 205|200 026 352|201 272 036       5;	V133; =Q3; SET133; J26!=; J5P50; (if end message inside prog);
 3352/0: 304 000 006|221 026 367                                       26;	SET6; J27=; (if object prog > 8K);
 3353/0: 304 000 204|221 026 367                                       	SET132; J27=; (if parity fail);
 3354/0: 304 000 075|221 026 367|304 000 206|221 026 367               	SET 61; J27=; SET134; J27=; (even restart);
 3356/0: 304 000 210|221 026 367                                       	SET136; J27=; (odd restart);
 3357/0: 300 000 000|304 017 300|054|221 146 365                       	E0; SETB7700; AND; J3=Z; (if no extra fail information);
 3360/4: 300 000 000|042|301 006 054|304 360 000|054|304 012 100       	E0; DUP; =V2; SETB170000; AND; SETB5100;
 3363/0: 011|301 000 000|200 333 377|300 006 054|301 000 000           	OR; =E0; JSP101; V2; =E0;
 3365/1: 041|301 016 233|300 006 244|170 156|200 360 000               3;	ZERO; =YA7; V122; =Q6; EXIT1;
 3367/1: 201 272 034                                                   27;	J3P50;
 3367/4: 041|301 016 245|041|301 016 261                               4;	ZERO; =YA17; ZERO; =YA29;
 3371/0: 171 350|300 012 270|036|170 350|041|301 012 270               	C14; V0P55; -; =C14; ZERO; =V0P55;
 3373/0: 300 016 256|304 000 024|036|201 052 034                       	YA26; SET20; -; J3P50>=Z; (end prog if more than 20 fails);
 3374/4: 304 000 001|301 016 254                                       	SET1; =YA24; (R:=1);
 3375/4: 100 376|167 371|164 271|304 000 016|205 027 001               13;	M14M15; SHC-4; SHL-36; SETB16; J15!=; (if TS != switch begin);
 3377/4: 143 340                                                       	DC14; (N:=N-1);
 3400/0: 052|141 360|304 000 001|172 370                               14;	ERASE; M-I15; SET1; =+C15; (SP := SP -1);
 3401/2: 204 266 375                                                   	J13;
 3401/5: 304 017 037|054|304 000 016|200 027 000                       15;	SETB7437; AND; SETB16; J14!=; (if TS != BEGIN etc);
 3403/3: 052|200 360 000                                               	ERASE; EXIT1;
 3404/1: 171 076|301 006 245|304 000 011|170 070|041|301 006 054|041|301 006 055|041
                                                                       20;	Q3; =V123; SET9; =C3; ZERO; =V2; ZERO; =V3; ZERO;
 3407/2: 300 006 055|300 006 054|166 031|301 006 054|011|301 006 055|041|166 015|143 060|042
                                                                       21;	V3; V2; SHLD12; =V2; OR; =V3; ZERO; SHLD6; DC3; DUP;
 3412/5: 200 147 017|052|304 001 307|262 067 007|052|052               	J22!=Z; ERASE; SETB707; J21C3NZ; ERASE; ERASE;
                                                                       
                                                                        
                                                                       [ good44.txt 
                                                                       [ -- Brian W
                                                                       
 3414/5: 300 016 260|170 150|300 006 245|170 076|200 360 000           		YA28; =C6; V123; =Q3; EXIT1;
 3417/0: 042|304 000 033|036|203 047 021|304 001 340|056|202 267 007   22;		DUP; SET27; -; J23>=Z; SETB740; +; J21;
 3421/3: 042|304 000 065|036|200 047 024|304 001 206|056|202 267 007   23;		DUP; SET53; -; J24>=Z; SETB606; +; J21;
 3424/0: 304 001 233|056|202 267 007                                   24;		SETB633; +; J21;
                                                                       25;		(output fail no line no etc);
 3425/1: 304 006 054|170 144|304 006 055|170 142|300 016 243|164 377|200 326 322|164 061|300 016 245
                                                                       		SETAV2; =I6; SETAV3; =M6; YA15; SHL-1; JS10; SHL24; YA17;
 3431/0: 222 147 050|300 006 075|011|301 006 055|171 156|200 336 115|300 006 077|301 006 054|300 016 244|164 377|200 326 322
                                                                       		J8=Z; V19; OR; =V3; Q6; JSP114; V21; =V2; YA16; SHL-1; JS10;
 3435/5: 164 075|300 006 110|011|301 006 055|171 156|200 336 115|300 006 061|301 006 054|300 006 062|301 006 055|171 156|200 336 115|300 016 245
                                                                       		SHL+30; V30; OR; =V3; Q6; JSP114; V7; =V2; V8; =V3; Q6;JSP114; YA17;
 3443/3: 300 010 056|171 150|036|225 147 046|201 327 004|171 156|200 336 115|200 360 000
                                                                       		V4P33; C6; -; J7=Z; JS20; Q6; JSP114; EXIT1;
 3446/5: 171 156|065|204 324 067|200 360 000                           7;		Q6; REV; JS4P3; EXIT1;
 3450/2: 301 006 055|171 156|200 336 115|200 360 000                   8;		=V3; Q6; JSP114; EXIT1;
                                                                       
                                                                       
=== Start P30V-1; at address 1835
                                                                       P30;	(DEC);
 3453/0: 262 027 054                                                   		J1C1NZ; (if m!=0);
 3453/3: 171 022|202 147 055                                           		M1; J3NEZ; (if E=1);
 3454/2: 304 000 012                                                   1;		SET10;
 3454/5: 200 264 124                                                   2;		JP5;
 3455/2: 300 016 234|042|201 147 057                                   3;		YA8; DUP; J4!=Z; (if V!=0);
 3456/3: 041|200 331 073                                               		ZERO; JSP44;
 3457/1: 304 000 042|065|225 047 054|052|200 360 000                   4;		SET34; REV; J2<Z; ERASE; EXIT1;
=== Start P31V74; at address 1916
                                                                       P31V74;			(READ);
V-store at 03461 = 357 342 354 000 000 000  
V-store at 03462 = 000 000 000 000 000 336                             V0=B7376135400000000;	V1=222;
V-store at 03463 = 357 316 316 357 307 000  
V-store at 03464 = 000 000 000 000 000 002                             V2=B7374731673743400;V3=2;
V-store at 03465 = 356 353 351 347 342 000  
V-store at 03466 = 000 000 000 000 000 056                             V4=B7356575171761000;	V5=46;
V-store at 03467 = 356 341 341 344 353 357  
V-store at 03470 = 342 000 000 000 000 040                             V6=B7356074171165757;	V7=B7040000000000040;
V-store at 03471 = 355 341 343 343 353 342  
V-store at 03472 = 314 000 000 000 001 000                             V8=B7336074370765742;	V9=B6300000000000400;
V-store at 03473 = 354 341 000 000 000 000  
V-store at 03474 = 000 000 000 000 000 025                             V10=B7316040000000000;	V11=21;
V-store at 03475 = 353 344 315 353 000 000  
V-store at 03476 = 000 000 000 000 000 151                             V12=B7276231572600000;	V13=105;
                                                                       
                                                                       [ good45.txt 
                                                                       [ -- Roderick McL
                                                                       
V-store at 03477 = 353 342 354 000 000 000  
V-store at 03500 = 000 000 000 000 000 150                             	V14=B 7276 1354 0000 0000; V15=104;
V-store at 03501 = 353 317 312 000 000 000  
V-store at 03502 = 000 000 000 000 000 176                             	V16=B 7274 7712 0000 0000; V17=126;
V-store at 03503 = 352 357 344 315 353 000  
V-store at 03504 = 000 000 000 000 004 006                             	V18=B 7256 7744 6336 5400; V19=1030;
V-store at 03505 = 352 341 316 000 000 000  
V-store at 03506 = 000 000 000 000 000 013                             	V20=B 7256 0716 0000 0000; V21=11;
V-store at 03507 = 351 341 314 341 000 000  
V-store at 03510 = 000 000 000 000 000 024                             	V22=B 7236 0714 7020 0000; V23=20;
V-store at 03511 = 351 341 203 314 341 000  
V-store at 03512 = 000 000 000 000 000 024                             	V24=B 7236 0603 6316 0400; V25=20;
V-store at 03513 = 347 352 000 000 000 000  
V-store at 03514 = 000 000 000 000 000 071                             	V26=B 7176 5000 0000 0000; V27=57;
V-store at 03515 = 347 343 340 000 000 000  
V-store at 03516 = 000 000 000 000 000 236                             	V28=B 7176 1740 0000 0000; V29=158;
V-store at 03517 = 347 342 314 353 351 353  
V-store at 03520 = 316 000 000 000 000 200                             	V30=B 7176 1314 7276 4753; V31=B 6340 0000 0000 0200;
V-store at 03521 = 344 357 356 353 344 000  
V-store at 03522 = 000 000 000 000 000 001                             	V32=B 7116 7756 7276 2000; V33=1;
V-store at 03523 = 344 347 356 316 357 316  
V-store at 03524 = 307 000 000 000 001 000                             	V34=B 7116 3756 6356 7716; V35=B 6160 0000 0000 0400;
V-store at 03525 = 342 341 314 000 000 000  
V-store at 03526 = 000 000 000 000 000 376                             	V36=B 7056 0714 0000 0000; V37=254;
V-store at 03527 = 341 316 000 000 000 000  
V-store at 03530 = 000 000 000 000 000 276                             	V38=B 7034 7000 0000 0000; V39=190;
V-store at 03531 = 341 311 342 000 000 000  
V-store at 03532 = 000 000 000 000 000 045                             	V40=B 7034 4742 0000 0000; V41=37;
V-store at 03533 = 340 316 341 355 353 354  
V-store at 03534 = 313 316 353 000 000 004                             	V42=B 7014 7341 7336 5754; V43=B 6274 7353 0000 0004;
V-store at 03535 = 316 353 357 344 000 000  
V-store at 03536 = 000 000 000 000 000 140                             	v44=B 6356 5757 7100 0000; V45=96;
V-store at 03537 = 315 353 351 343 353 342  
V-store at 03540 = 314 000 000 000 000 007                             	V46=B 6336 5751 7076 5742; V47=B 6300 0000 0000 0007;
V-store at 03541 = 315 314 353 340 000 000  
V-store at 03542 = 000 000 000 000 000 034                             	V48=B 6334 6353 7000 0000; V49=28;
V-store at 03543 = 315 314 316 347 342 351  
V-store at 03544 = 000 000 000 000 000 201                             	V50=B 6334 6316 7176 1351; V51=129;
V-store at 03545 = 315 311 347 314 355 350  
V-store at 03546 = 000 000 000 000 000 003                             	V52=B 6334 4747 6316 6750; V53=3;
V-store at 03547 = 314 350 353 342 000 000  
V-store at 03550 = 000 000 000 000 000 155                             	V54=B 6316 4353 7040 0000; V55=109;
V-store at 03551 = 314 316 313 353 000 000  
V-store at 03552 = 000 000 000 000 002 005                             	V56=B 6314 7313 7260 0000; V57=517;
V-store at 03553 = 313 342 314 347 344 000  
V-store at 03554 = 000 000 000 000 000 174                             	V58=B 6276 1314 7176 2000; V59=124;
V-store at 03555 = 312 357 344 313 353 000  
V-store at 03556 = 000 000 000 000 000 101                             	V60=B 6256 7744 6276 5400; V61=65;
V-store at 03557 = 311 350 347 344 353 000  
V-store at 03560 = 000 000 000 000 000 374                             	V62=B 6236 4347 7116 5400; V63=252;
V-store at 03561 = 304 214 217 211 214 000  
V-store at 03562 = 000 000 000 000 000 141                             	V64=B 6110 6217 4230 6000; V65=97;
V-store at 03563 = 303 341 341 344 353 357  
V-store at 03564 = 342 000 000 000 000 040                             	V66=B 6076 0741 7116 5757; V67=B 7040 0000 0000 0040;
V-store at 03565 = 301 205 216 206 000 000  
V-store at 03566 = 000 000 000 000 000 241                             	V68=B 6030 2616 4140 0000; V69=161;
V-store at 03567 = 215 302 300 305 000 000  
V-store at 03570 = 000 000 000 000 000 041                             	V70=B 4334 1300 6120 0000; V71=33;
                                                                       [ good46.txt 
                                                                       [ -- Brian W
                                                                       
V-store at 03571 = 214 347 356 316 357 316  
V-store at 03572 = 307 000 000 000 001 000                             V72=B4316375663567716;	V73=B6160000000000400;
V-store at 03573 = 000 000 000 000 000 000                             V74=0;
                                                                       		
                                                                       		(READ CONTD);
 3574/0: 300 007 173|170 156|041|301 016 221                           		V74;=Q6; ZERO; =W3;
 3575/3: 200 327 366|042|204 147 201                                   1;		JSP32; DUP; J3!=Z; (if char != blank);
 3576/4: 052|203 267 175                                               		 ERASE; J1;
 3577/2: 052                                                           17;		ERASE;
 3577/3: 304 000 174                                                   11;		SET124;
 3600/0: 065|052                                                       2;		REV; ERASE;
 3600/2: 171 156|301 007 173|200 264 124                               18;		Q6; =V74; JP5;
 3601/4: 304 000 175|203 027 223                                       3;		SET125; J6!=; (if char!=closing round bracket);
 3602/4: 300 016 233|221 147 221                                       		YA7; J5=Z; (if PROC=0);
 3603/4: 171 116|164 301|304 000 377|054|041|222 027 177               		Q4; SHL-32; SETB377; AND; ZERO; J17=; (if A2=blank);
 3605/4: 304 000 065|036|201 047 221                                   		SET53; -; J5>=Z; (if A2!=letter);
 3606/5: 052|200 327 366|052                                           4;		ERASE; JSP32; ERASE; (UPDATE BUFFER);
 3607/4: 171 116|164 301|304 000 377|054|041|222 027 177               		Q4; SHL-32; SETB377; AND; ZERO; J17=; (IF A2=BLANK[A2]);
 3611/4: 042|304 000 065|036|225 047 206                               		DUP; SET53; -; J4<Z; (IF A2=LETTER[A2]);
 3613/0: 304 000 146|036|203 147 222                                   		SET102; -; J21!=Z; (IF CHAR!=:[-]);
 3614/1: 200 327 366|052                                               		JSP32; ERASE; ([-]);
 3614/5: 171 116|164 301|304 000 377|054|041|222 027 177               		Q4; SHL-32; SETB377; AND; ZERO; J17=;
 3616/5: 304 000 163|036|203 147 222                                   		SET115; -; J21!=Z;
 3620/0: 200 327 366|052|304 000 173                                   		JSP32; ERASE; SET123;
 3621/1: 171 156|301 007 173|200 264 104                               5;		Q6; =V74; JP4;
 3622/3: 304 000 175|202 267 200                                       21;		SET125; J18;
 3623/3: 304 000 146|205 027 231                                       6;		SET102; J8!=; (if char != :);
 3624/3: 171 116|164 301|304 000 377|054|304 000 326|036|201 147 221   		Q4; SHL-32; SETB377; AND; SET214; -; J5!=Z; (if A2 != =);
 3627/0: 052|200 327 366|052|304 000 020                               		ERASE; JSP32; ERASE; SET16;
 3630/2: 304 000 001|301 016 221|201 267 221                           7;		SET1; =W3; J5;
                                                                       
                                                                       [ good47.txt 
                                                                       [ -- Brian W
                                                                       
 3631/5: 042|304 000 200|015|304 000 260|054|225 147 235               8;		DUP; SETB200; NEV; SETB260; AND; J9=Z; (if underlined char);
 3633/5: 042|304 000 340|015|304 000 360|054|201 147 221               		DUP; SETB340; NEV; SETB360; AND; J5!=Z; (if char = other);
                                                                       		
                                                                       		(DICT);
 3635/5: 304 000 202|204 027 237|033|027|202 267 200                   9;		SET130; J19!=; NOT; NEG; J18;
 3637/4: 171 256|301 016 221|304 000 044|170 251|146 240               19;		Q10; =W3; SET36; =RC10; I10=2;
 3641/4: 171 116|302 247 061|036|203 047 253                           10;		Q4; V0M10Q; -; J13>=Z; (if buffer>dict[a]);
 3643/1: 264 247 241|205 267 253                                       		J10C10NZ; (if a!=x); J14;
 3644/1: 200 327 366|052                                               20;		JSP32; ERASE;
                                                                       12;		(to clear rest of u/lined chars at a fail);
 3644/5: 052|052|171 116|164 021|164 261                               		ERASE; ERASE; Q4; SHL8; SHL-40;
 3646/1: 042|042|304 000 200|015|304 000 260|054                       		DUP; DUP; SETB200; NEV; SETB260; AND;
 3647/5: 221 147 244|042|304 000 340|015|304 000 360                   		J20=Z; DUP; SETB340; NEV; SETB360;
 3651/4: 054|221 147 244|052|304 000 176|200 267 200                   		AND; J20=Z; ERASE; SET126; J2;
 3653/3: 141 240                                                       13;		M-I10;
 3653/5: 144 240|302 247 061|300 247 061|065                           14;		I10=1; V0M10Q; V0M10; REV;
 3655/2: 042|164 261|012|051|036|205 147 244                           15;		DUP; SHL-40; PERM; REVD; -; J12!=Z; (fail if cell[b]!=char);
 3656/5: 166 021|042|164 261|222 147 261                               		SHLD8; DUP; SHL-40; J16=Z; (if cell[b]=blank);
 3660/1: 200 327 366|012|202 267 255                                   		JSP32; PERM; J15;
 3661/2: 052|052|300 247 061|304 007 377|054|300 016 221|170 256|202 267 230
                                                                       16;		ERASE; ERASE; V0M10; SETB3777; AND; W3; =Q10; J7;
                                                                       
=== Start P32V64; at address 2038
                                                                       P32V64;			(UPDATE BUFFER)
V-store at 03665 = 174 174 000 000 201 201  
V-store at 03666 = 000 000 000 000 000 000                             V0=B3707600000100601;	V1=0;
V-store at 03667 = 174 174 000 000 201 201  
V-store at 03670 = 174 174 000 000 201 201                             V2=B3707600000100601;	V3=B3707600000100601;
V-store at 03671 = 174 174 000 000 201 201  
V-store at 03672 = 000 000 000 000 000 000                             V4=B3707600000100601;	V5=0;
V-store at 03673 = 174 174 000 000 201 201  
V-store at 03674 = 174 174 000 000 201 201                             V6=B3707600000100601;	V7=B3707600000100601;
V-store at 03675 = 000 000 000 000 000 000  
V-store at 03676 = 000 000 000 000 000 000                             V8=0;					V9=0;
V-store at 03677 = 000 000 000 000 000 000  
V-store at 03700 = 000 000 000 000 000 000                             V10=0;					V11=0;
V-store at 03701 = 000 000 000 000 000 000  
V-store at 03702 = 000 000 000 000 000 000                             V12=0;					V13=0;
                                                                       [ good48.txt 
                                                                       [ -- Roderick McL
                                                                       
V-store at 03703 = 000 000 000 000 000 000  
V-store at 03704 = 262 146 000 000 201 201                             	V14=0; V15=B 5446 3000 0010 0601;
V-store at 03705 = 065 322 000 000 201 201  
V-store at 03706 = 066 114 000 000 201 127                             	V16=B 1535 1000 0010 0601; V17=B 1544 6000 0010 0527;
V-store at 03707 = 067 177 000 000 201 117  
V-store at 03710 = 070 226 000 000 201 266                             	V18=B 1567 7400 0010 0517; V19=B 1611 3000 0010 0666;
V-store at 03711 = 071 126 000 000 201 166  
V-store at 03712 = 072 326 000 000 201 201                             	V20=B 1625 3000 0010 0566; V21=B 1655 3000 0010 0601;
V-store at 03713 = 073 222 000 000 201 201  
V-store at 03714 = 074 362 000 000 201 201                             	V22=B 1671 1000 0010 0601; V23=B 1717 1000 0010 0601;
V-store at 03715 = 075 163 000 000 201 201  
V-store at 03716 = 076 175 000 000 305 201                             	V24=B 1727 1400 0010 0601; V25=B 1747 6400 0014 2601;
V-store at 03717 = 174 174 000 000 201 201  
V-store at 03720 = 100 174 000 000 201 201                             	V26=B 3707 6000 0010 0601; V27=B 2007 6000 0010 0601;
V-store at 03721 = 170 170 000 000 201 201  
V-store at 03722 = 122 366 000 000 201 201                             	V28=B 3607 4000 0010 0601; V29=B 2457 3000 0010 0601;
V-store at 03723 = 162 257 000 000 201 201  
V-store at 03724 = 077 173 000 000 201 201                             	V30=B 3452 7400 0010 0601; V31=B 1767 5400 0010 0601;
V-store at 03725 = 000 000 000 000 000 000  
V-store at 03726 = 001 033 000 000 304 357                             	V32=0; V33=B 0021 5400 0014 2357;
V-store at 03727 = 002 034 000 000 303 356  
V-store at 03730 = 003 035 000 000 201 355                             	V34=B 0041 6000 0014 1756; V35=B 0061 6400 0010 0755;
V-store at 03731 = 004 036 000 000 302 354  
V-store at 03732 = 005 037 000 000 301 353                             	V36=B 0101 7000 0014 1354; V37=B 0121 7400 0014 0753;
V-store at 03733 = 006 040 000 000 300 352  
V-store at 03734 = 007 041 000 000 217 351                             	V38=B 0142 0000 0014 0352; V39=B 0162 0400 0010 7751;
V-store at 03735 = 010 042 000 000 201 350  
V-store at 03736 = 011 043 000 000 216 347                             	V40=B 0202 1000 0010 0750; V41=B 0222 1400 0010 7347;
V-store at 03737 = 012 044 000 000 201 346  
V-store at 03740 = 013 045 000 000 215 345                             	V42=B 0242 2000 0010 0746; V43=B 0262 2400 0010 6745;
V-store at 03741 = 014 046 000 000 214 344  
V-store at 03742 = 015 047 000 000 213 343                             	V44=B 0302 3000 0010 6344; V45=B 0322 3400 0010 5743;
V-store at 03743 = 016 050 000 000 212 342  
V-store at 03744 = 017 051 000 000 211 341                             	V46=B 0342 4000 0010 5342; V47=B 0362 4400 0010 4741;
V-store at 03745 = 020 052 000 000 201 340  
V-store at 03746 = 021 053 000 000 201 317                             	V48=B 0402 5000 0010 0740; V49=B 0422 5400 0010 0717;
V-store at 03747 = 022 054 000 000 210 316  
V-store at 03750 = 023 055 000 000 207 315                             	V50=B 0442 6000 0010 4316; V51=B 0462 6400 0010 3715;
V-store at 03751 = 024 056 000 000 206 314  
V-store at 03752 = 025 057 000 000 201 313                             	V52=B 0502 7000 0010 3314; V53=B 0522 7400 0010 0713;
V-store at 03753 = 026 060 000 000 201 312  
V-store at 03754 = 027 061 000 000 201 311                             	V54=B 0543 0000 0010 0712; V55=B 0563 0400 0010 0711;
V-store at 03755 = 030 062 000 000 205 310  
V-store at 03756 = 031 063 000 000 204 307                             	V56=B 0603 1000 0010 2710; V57=B 0623 1400 0010 2307;
V-store at 03757 = 032 064 000 000 201 306  
V-store at 03760 = 000 000 000 000 000 000                             	V58=B 0643 2000 0010 0706; V59=0;
V-store at 03761 = 000 000 000 000 000 000  
V-store at 03762 = 174 174 000 000 201 201                             	V60=0; V61=B 3707 6000 0010 0601; 
V-store at 03763 = 000 000 000 000 000 000  
V-store at 03764 = 000 000 000 000 000 000                             	V62=0; V63=0;
V-store at 03765 = 367 337 175 367 337 175                             	V64=B 7575 7575 7575 7575;
 3766/0: 171 144|167 351|204 047 367|200 330 061                       	I6; SHC-12; J11>=Z; JSP33;
 3767/4: 041|300 016 250|203 150 030                                   11;	ZERO; YA20; J10!=Z;
 3770/5: 052                                                           1;	ERASE;
                                                                       
                                                                       [ good49.txt 
                                                                       [ -- Roderick McL
                                                                       
 3771/0: 262 150 011|265 210 007|300 016 252|042|164 341               2;	J4C6NZ; J3C8NZ; YA22; DUP; SHL-16;
 3773/0: 170 142|300 016 253                                           	=M6; YA23;
 3773/5: 301 016 252|301 016 253                                       	=YA22; =YA23;
 3774/5: 300 016 257|170 170|121 160|203 347 377|304 000 204|200 264 124
                                                                       	YA27; =C7; PARQ7; J19NTR; SET132; JP5;
 3777/3: 300 016 253|170 176|100 160|300 007 365|015|304 000 010|170 170
                                                                       19;	YA23; =Q7; M0M7; V64; NEV; SET8; =C7;
 4002/1: 041|166 015|225 150 006|143 160|261 170 002|300 016 252|170 176|300 007 365|101 160
                                                                       17;	ZERO; SHLD6; J20=Z; DC7; J17C7NZ; YA22; =Q7; V64; =M0M7;
 4005/4: 300 016 257|170 170|125 160                                   	YA27; =C7; PREQ7;
 4006/5: 052|304 000 040|170 211                                       20;	ERASE; SET32; =RC8;
 4007/5: 102 206|170 176|304 000 010|170 150                           3;	M6M8Q; =Q7; SET8; =C6;
 4011/2: 143 140|171 176|042|164 015|170 176|164 255|304 000 007|200 030 015|152 011|205 267 370
                                                                       4;	DC6; Q7; DUP; SHL6; =Q7; SHL-42; SET7; J5!=; I0TOQ9; J1;
 4015/0: 304 000 006|202 030 017|304 000 010|170 224|205 267 370       5;	SET6; J6!=; SET8; =I9; J1;
 4017/2: 304 000 032|201 030 022|301 016 251|304 000 040|170 230|200 267 371
                                                                       6;	SET26; J7!=; =YA21; SET32; =C9; J2;
 4022/1: 042|225 150 023|304 000 004|205 030 034                       7;	DUP; J8=Z; SET4; J12!=;
 4023/5: 052|240 227 371|304 000 203|171 136|304 351 341|015|164 101|223 150 027
                                                                       8;	ERASE; J2C9Z; SET131; Q5; SETB164741; NEV; SHL32; J9=Z;
 4026/5: 052|304 000 202                                               18;	ERASE; SET130;
 4027/3: 304 000 040|301 016 251                                       9;	SET32; =YA21;
 4030/3: 154 011|171 136|171 116|166 021|042|170 116|164 261|012       10;	C0TOQ9; Q5; Q4; SHLD8; DUP; =Q4; SHL-40; PERM;
 4032/5: 011|170 136|171 144|164 003|170 144|200 360 000               	OR; =Q5; I6; SHL1; =I6; EXIT1;
 4034/5: 304 000 075|202 030 037|301 016 250|304 000 157|203 270 027   12;	SET61; J13!=; =YA20; SETB157; J9;
 4037/2: 304 000 002|222 030 041|304 000 003|202 030 044               13;	SET2; J14=; SET3; J15!=;
 4041/2: 300 016 251|225 147 370                                       14;	YA21; J1=Z;
 4042/2: 041|301 016 251|304 000 001|172 144|205 270 023               	ZERO; =YA21; SET1; =+I6; J8;
 4044/2: 170 222|171 224|172 230|300 227 265|164 220|164 261|304 000 174|225 030 026
                                                                       15;	=M9; I9; =+C9; V0M9; SHLC9; SHL-40; SET124; J18=;
 4047/3: 042|203 150 027|171 224|027|172 230|205 267 370               	DUP; J9!=Z; I9; NEG; =+C9; J1;
                                                                       
=== Start P33V6; at address 2097
                                                                       P33V6;	(store);
V-store at 04052 = 000 000 000 000 000 000  
V-store at 04053 = 000 000 000 000 000 000                             	V0=0; V1=0;
V-store at 04054 = 034 044 020 101 004 020                             	V2=B 0702 2020 2020 2020;
V-store at 04055 = 000 000 000 000 000 000  
V-store at 04056 = 000 000 000 000 000 000                             	V3=0; V4=0; 
                                                                       [ good50.txt 
                                                                       [ -- Brian W
                                                                       
V-store at 04057 = 000 000 000 000 000 000                             		V5=0;
V-store at 04060 = 000 000 000 000 000 000                             		V6=0;
 4061/0: 171 050|301 010 057|171 076|301 010 055                       		C2; =V5; Q3; =V3;
 4062/4: 300 016 256|200 150 107                                       		YA26; J1!=Z; (no store output if FAIL set);
 4063/4: 300 004 102|201 150 066                                       		V0P4; J3!=Z; (if not a string or code body compile DUMMY);
 4064/4: 041|304 001 074|166 361|200 330 115                           		ZERO; SETB474; SHLD-8; JSP34;
 4066/1: 300 010 060|220 150 107|304 010 052|170 064|304 010 053|170 062
                                                                       3;		V6; J1=Z; SETAV0; =I3; SETAV1; =M3;
 4070/5: 300 016 243|164 377|200 334 117|300 014 115|164 075|164 351   		YA15; SHL-1; JSP127; V2P127; SHL30; SHL-12;
 4073/2: 300 016 244|164 377|200 334 117|300 014 115|164 075|164 305|011
                                                                       		YA16; SHL-1; JSP127; V2P127; SHL30; SHL-30; OR;
 4076/0: 300 010 054|011|300 016 260|300 010 056|223 150 101           		V2; OR; YA28; V4; J2=Z; (if output to punch);
 4100/1: 052|164 015|164 365                                           		ERASE; SHL6; SHL-6; (remove CN char);
 4101/0: 300 010 056                                                   		V4;
 4101/3: 170 070|301 010 052|171 024|304 000 006|034|050|171 344|056   2;		=C3; =V0; I1; SET6; xD; CONT; I14; +;
 4104/0: 200 334 117|300 014 115|300 014 113|011|301 010 053           		JSP127; V2P127; V0P127; OR; =V1;
 4106/1: 171 076|200 336 115                                           		Q3; JSP114;
 4107/0: 300 010 055|170 076|300 010 057|170 050                       1;		V3; =Q3; V5; =C2;
 4110/4: 304 000 002|042|300 016 243|056|301 016 243                   		SET2; DUP; YA15; +; =YA15;
 4112/3: 300 016 244|056|301 016 244|200 360 000                       		YA16; +; =YA16; EXIT1;
                                                                       		
=== Start P34V-1; at address 2125
                                                                       P34;	(COMPILE);
 4115/0: 170 050|300 336 366|171 156|301 016 220|171 344|304 000 006|036|164 007|170 150|164 140
                                                                       		=C2; Y0M13; Q6; =W2; I14; SET6; -; SHL3; =C6; SHLC6;
 4120/4: 304 000 006|170 150                                           1;		SET6; =C6; (no of sylls in N1 to compile);
 4121/3: 167 021|170 076                                               2;		SHC8; =Q3; (last word of object prog);
 4122/1: 167 021|042|304 000 377|054|171 076|056|143 040|143 140|171 344|033|027
                                                                       		SHC8; DUP; SETB377; AND; Q3; +; DC2; DC6; I14; NOT; NEG;
 4125/1: 304 000 006|204 030 133                                       		SET6; J4!=; (if space left in current word);
 4126/1: 052|304 000 001|172 024|171 024|164 347|222 150 131|304 000 006|200 264 124
                                                                       		ERASE; SET1; =+I1; I1; SHL-13; J6=Z; SET6; JP5; (IF OBJ PROG >8K);
 4131/2: 303 336 366                                                   6;		=Y0M13Q; (store full object prog word);
                                                                       
                                                                       [ good51.txt 
                                                                       [ -- Roderick McL
                                                                       
 4131/5: 262 330 133                                                   	J3C13NZ; (if room between object prog and stack);
 4132/2: 304 377 377|200 330 143                                       	SET-1; JSP35;
 4133/2: 041|042                                                       3;	ZERO; DUP;
 4133/4: 170 344|263 050 140                                           4;	=I14; J5C2NZ; (if more sylls to compile);
 4134/3: 304 000 006|171 344|036|164 007|170 050|164 040|301 336 366   	SET6; I14; -; SHL3; =C2; SHLC2; =Y0M13;
 4137/0: 052|300 016 220|170 156|200 360 000                           	ERASE; W2; =Q6; EXIT1;
 4140/3: 263 150 121                                                   5;	J2C6NZ; (if more sylls in N1);
 4141/0: 065|052|204 270 120                                           	REV; ERASE; J1;
=== Start P35V0; at address 2147
                                                                       P35V0;	(MOVE STACK);
V-store at 04142 = 000 000 000 000 000 000                             	V0=0;
 4143/0: 171 156|301 010 142|042|222 050 162|223 110 146|171 304|172 370|171 370|220 110 161
                                                                       	Q6; =V0; DUP; J7<Z; J1>Z; I12; =+C15; C15; J6>Z;
 4146/3: 304 000 040                                                   1;	SET32; (no of words the stack is moved);
 4147/0: 042|172 370|027|042|172 330|171 330                           	DUP; =+C15; NEG; DUP; =+C13; C13;
 4150/3: 203 050 153|203 324 201|304 000 006|300 006 250|300 006 252|202 332 047
                                                                       2;	J3>=Z; JS2P5; SET6; V126P29; V128P29; JS15P50; (KDF9 too small);
 4153/3: 171 342|056|170 142|171 362|042|170 150                       3;	M14; +; =M6; M15; DUP; =C6;
 4155/1: 220 150 160|100 376|101 366|171 362|027|033|042|170 362|201 270 155
                                                                       4;	J5=Z; M14M15; =M6M15; M15; NEG; NOT; DUP; =M15; J4;
 4160/0: 171 150|170 362|151 156                                       5;	C6; =M15; M6TOQ14;
 4161/0: 300 010 142|170 156|200 360 000                               6;	V0; =Q6; EXIT1;
 4162/2: 052|304 000 040                                               7;	ERASE; SET32; (no of words the stack is moved);
 4163/0: 042|042|170 330|027|172 370|171 370|203 270 150               	DUP; DUP; =C13; NEG; =+C15; C15; J2;
                                                                       
=== Start P36V-1; at address 2165
                                                                       P36;	(STACK);
 4165/0: 170 050                                                       	=C2;
 4165/2: 265 370 166                                                   1;	J2C15NZ; (if room to add another word to stack);
 4165/5: 304 000 001|200 330 143                                       	SET1; JSP35;
 4166/5: 113 376|143 040|262 050 165                                   2;	=M14M15QN; DC2; J1C2NZ; (if more words to stack);
 4170/0: 200 360 000                                                   	EXIT1;
=== Start P37V-1; at address 2169
                                                                       P37;	(UNSTACK 18/2/63);
 4171/0: 170 044                                                       	=I2;
                                                                       
                                                                       
                                                                       
                                                                       [ good52.txt 
                                                                       [ -- Roderick McL
                                                                       
 4171/2: 171 362|220 150 175|100 376|042|170 076|304 000 017           1;	M15; J2=Z; M14M15; DUP; =Q3; SETB17;
 4173/3: 054|042|171 044|036|203 050 175|052                           	AND; DUP; I2; -; J3>=Z; ERASE;
 4175/0: 200 360 000                                                   2;	EXIT1;
 4175/3: 304 000 015|200 030 203                                       3;	SET13; J7!=;
 4176/3: 052|155 003|171 076                                           4;	ERASE; CM0TOQ3; Q3;
 4177/2: 042|200 332 250|300 016 247|042|202 150 177|052               5;	DUP; JSP54; YA19; DUP; J5!=Z; ERASE;
 4201/2: 141 360|304 000 001|172 370|202 270 171                       6;	M-I15; SET1; =+C15; J1;
 4203/0: 171 076|065|304 000 014|225 030 211|304 000 010|205 030 206|171 044|201 030 214
                                                                       7;	Q3; REV; SET12; J10=; SET8; J9!=; I2; J11!=;
 4206/2: 200 264 124                                                   8;	JP5;
 4206/5: 052|042|164 261|304 000 151|015|304 000 373|054|223 150 176|202 270 214
                                                                       9;	ERASE; DUP; SHL-40; SETB151; NEV; SETB373; AND; J4=Z; J12;
 4211/5: 241 050 214|052|164 021|304 000 065|171 050|222 050 206       10;	J11C2Z; ERASE; SHL8; SET53; C2; J8<Z;
 4214/1: 052                                                           11;	ERASE;
 4214/2: 304 000 001|200 330 115|202 270 201                           12;	SET1; JSP34; J6;
=== Start P38V-1; at address 2190
                                                                       P38;	(BEGIN STATE 26/1/63);
 4216/0: 300 016 234|042|221 110 220|225 150 224|200 360 000           	YA8; DUP; J1>Z; J3=Z; EXIT1;
 4220/1: 052|304 000 015|200 330 171|171 022|225 150 223|300 016 231|304 000 170|036|225 150 224
                                                                       1;	ERASE; SET13; JSP37; M1; J2=Z; YA5; SET120; -; J3=Z;
 4223/5: 304 000 007|200 264 124                                       2;	SET7; JP5;
 4224/5: 041|033|301 016 234|200 360 000                               3;	ZERO; NOT; =YA8; EXIT1;
=== Start P39V-1; at address 2199
                                                                       P39;	(END STATE 6/2/63);
 4227/0: 304 000 065|300 016 231|304 000 177|036|300 016 262|011|224 150 242|052
                                                                       	SET53; YA5; SET127; -; YA30; OR; J6=Z; ERASE;
 4232/0: 041|301 016 262|200 330 216|304 000 001|042|200 330 255|171 022|201 150 240
                                                                       	ZERO; =YA30; JSP38; SET1; DUP; JSP40; M1; J3!=Z;
 4235/1: 200 330 276|151 041|041|301 016 241                           	JSP41; M2TOQ1; ZERO; =YA13;
 4236/4: 304 001 204|301 016 226                                       1;	SETB604; =YA2; 
 4237/4: 200 360 000                                                   2;	EXIT1;
 4240/1: 262 030 241|052|200 360 000                                   3;	J4C1NZ; ERASE; EXIT1;
 4241/2: 304 000 004|171 030|221 110 243                               4;	SET4; C1; J5>Z;
 4242/4: 200 264 124                                                   6;	JP5;
 4243/1: 301 016 226|200 330 276|041|304 001 124|166 361|200 330 115|304 000 157
                                                                       5;	=YA2; JSP41; ZERO; SETB524; SHLD-8; JSP34; SET111;
 4246/1: 300 276 367|042|205 050 250                                   	Y1M11; DUP; J7>=Z;
                                                                       [ good53-64.txt 
                                                                       [ -- Graham T
                                                                       [== Page 53
                                                                       
 4247/2: 164 037|204 050 242|052|204 270 236                                   SHL15; J6>=Z; ERASE; J1;
 4250/5: 304 001 000|164 061|011|301 276 367|052                       7;      SETB400; SHL24; OR; =Y1M11; ERASE;
 4252/3: 154 013|300 276 366|200 331 223|301 276 366|204 270 236               C0TOQ11; Y0M11; JSP48; =Y0M11; J1;
=== Start P40V-1; at address 2221
                                                                       P40;    (EXP 22/1/63);
 4255/0: 171 022|222 150 266|042|170 050|304 000 014|200 330 171|100 376
                                                                               M1; J4=Z; DUP; =C2; SET12; JSP37; M14M15;
 4257/4: 167 021|304 000 020|015|304 000 277|054|224 150 264                   SHC8; SETB20; NEV; SETB277; AND; J2=Z;
 4261/5: 027|033|205 110 265|300 016 233|205 150 265                           NEG; NOT; J3<=Z; YA7; J3!=Z;
 4263/4: 304 000 011|200 264 124                                       1;      SET9; JP5;
 4264/4: 042|202 110 266|151 001|052                                   2;      DUP; J4<=Z; M0TOQ1; ERASE;
 4265/5: 200 360 000                                                   3;      EXIT1;
 4266/2: 205 050 265|304 000 043|200 264 124                           4;      J3>=Z; SET35; JP5;
=== Start P41V5; at address 2238
                                                                       P41V5;  (TAKE  26/3/63);
V-store at 04270 = 006 106 010 014 116 016  
V-store at 04271 = 000 151 111 155 115 000                                     V0=B 0144 3010 0304 7016; V1=B 0006 4511 3324 6400;
V-store at 04272 = 141 103 000 145 105 000  
V-store at 04273 = 000 051 011 055 015 000                                     V2=B 3024 1400 3124 2400; V3=B 0002 4411 1320 6400;
V-store at 04274 = 045 003 000 045 005 000  
V-store at 04275 = 000 000 000 000 000 000                                     V4=B 1120 1400 1120 2400; V5=0;
 4276/0: 171 156|301 010 275|042|170 050|154 052|264 030 312|300 016 231|304 000 175
                                                                               Q6; =V5; DUP; =C2; C2TOQ10; J4C1NZ; YA5; SET125;
 4301/1: 203 030 306|052|042|220 150 306|052                                   J3!=; ERASE; DUP; J2=Z; ERASE;
 4302/4: 300 010 275|170 156|200 360 000                               1;      V5; =Q6; EXIT1;
 4304/0: 164 301|304 012 000|054|224 150 340                           30;     SHL-32; SETB5000; AND; J27=Z;
 4305/3: 304 000 157                                                   28;     SET111;
 4306/0: 200 264 124                                                   2;      JP5;
 4306/3: 304 000 177|036|304 000 014|065|200 150 306|200 330 171|052|300 016 226|041|200 332 311|204 270 302
                                                                       3;      SET127; -; SET12; REV; J2!=Z; JSP37; ERASE; YA2; ZERO; JSP56; J1;
 4312/4: 304 000 005|304 000 175|300 016 231|036|220 150 306           4;      SET5; SET125; YA5; -; J2=Z;
 4314/5: 304 000 177|300 016 231|036|220 150 306|052|171 030|200 050 334|304 000 001|065
                                                                               SET127; YA5; -; J2=Z; ERASE; C1; J7>=Z; SET1; REV;
 4320/1: 304 000 201|300 016 226|304 000 010|054|200 150 306|052               SET129; YA2; SETB10; AND; J2!=Z; ERASE;
 4322/3: 220 150 306|041|300 016 232|042|164 007|042|304 000 030               J2=Z; ZERO; YA6; DUP; SHL3; DUP; SET24;
 4324/5: 065|203 050 326|300 016 241|200 150 306                               REV; J5>=Z; YA13; J2!=Z;
 4326/3: 036|170 150|164 377|203 150 331|052|304 000 006|056|041|065|300 016 227
                                                                       5;      -; =C6; SHL-1; J6!=Z; ERASE; SET6;+; ZERO; REV; YA3;
 4331/3: 300 010 270|164 140|166 121|066|200 330 115|052|204 270 302   6;      V0; SHLC6; SHLD40; CAB; JSP34; ERASE; J1;
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 54
                                                                       
 4334/0: 200 331 140|042|224 150 340|043|052|204 150 340|042           7;      JSP46; DUP; J27=Z; DUPD; ERASE; J27!=Z; DUP;
 4336/1: 300 016 230|304 000 114|036|220 150 304|164 013|223 050 305           YA4; SET76; -; J30=Z; SHL5; J28<Z;
 4340/4: 042|170 156|042|220 050 375|164 341|164 101|065|220 150 351|304 000 110
                                                                       27;      DUP; =Q6; DUP; J15<Z; SHL-16; SHL32; REV; J29=Z; SET72;
 4343/4: 300 016 226|304 000 374|054|224 150 346|300 016 226|167 371|203 050 352
                                                                               YA2; SETB374; AND; J24=Z; YA2; SHC-4; J8>=Z;
 4346/4: 166 061|304 000 074|056|164 041|304 000 004|202 270 353       24;     SHLD24; SET60; +; SHL16; SET4; J9;
 4351/0: 304 000 011|300 016 246|164 361|011                           29;     SET9; YA18; SHL-8; OR;
 4352/3: 166 121|304 000 003                                           8;      SHLD40; SET3;
 4353/2: 304 000 001|200 331 130|170 144|200 330 115|300 016 226|171 150|042|164 355|171 250|011
                                                                       9;      SET1; JSP45; =I6; JSP34; YA2; C6; DUP; SHL-10; C10; OR;
 4357/0: 205 150 360|200 333 054|065|052|202 270 362                           J10!=Z; JSP60; REV; ERASE; J11;
 4360/5: 065|300 016 246|056|065|200 331 050                           10;     REV; YA18; +; REV; JSP42;
 4362/2: 170 150|171 142|204 150 366|171 144|170 142|304 001 377       11;     =C6; M6; J12!=Z; I6; =M6; SETB777;
 4364/4: 171 250|056|164 041|300 016 243|056|203 270 370                       C10; +; SHL16; YA15; +; J13;
 4366/4: 300 276 366|154 013|243 250 370|200 331 223                   12;     Y0M11; C0TOQ11; J13C10Z; JSP48;
 4370/3: 171 156|301 276 367|304 004 004|042|300 016 224|015|054|200 150 374|304 000 001|011
                                                                       13;     Q6; =Y1M11; SETB2004; DUP; YA0; NEV; AND; J14!=Z; SET1; OR;
 4374/0: 301 276 366|204 270 302                                       14;     =Y0M11; J1;
 4375/0: 304 000 066|304 004 004|042|300 016 224|015|054|220 150 306|052
                                                                       15;     SET54; SETB2004; DUP; YA0; NEV; AND; J2=Z; ERASE;
 4377/4: 300 016 226|012|065|221 151 004|042|164 257|304 000 100|036           YA2; PERM; REV; J16=Z; DUP; SHL-41; SETB100; -;
 4402/1: 304 010 001|065|224 151 003|027|033                                   SETB4001; REV; J25=Z; NEG; NOT;
 4403/4: 164 101|011                                                   25;     SHL32; OR;
 4404/1: 042|200 332 311|171 150|304 000 170                           16;     DUP; JSP56; C6; SETB170;
 4405/4: 054|300 276 366|042|304 001 000|164 041|011|301 276 366|164 251|036|170 070
                                                                               AND; Y0M11; DUP; SETB400; SHL16; OR; =Y0M11; SHL-44; -; =C3;
 4410/5: 171 150|244 251 033|042|164 115|304 000 027|065|220 050 306|052|167 377
                                                                               C6; J22C10Z; DUP; SHL38; SET23; REV; J2<Z; ERASE; SHC-1;
 4413/5: 224 051 025|300 010 271|300 010 272                                   J20<Z; V1; V2;
 4415/2: 166 060|065|052|164 261|304 000 103|201 031 023|167 361|154 006
                                                                               SHLDC3; REV; ERASE; SHL-40; SET67; J18!=; SHC-8; C0TOQ6;
 4420/0: 171 156|042|164 061|065|164 355|056|056|304 000 004                   Q6; DUP; SHL24; REV; SHL-10; +; +; SET4;
 4422/1: 200 330 115|204 270 302                                       17;     JSP34; J1;
 4423/1: 170 150|171 156|164 021                                       18;     =C6; Q6; SHL8;
 4424/1: 304 000 003|200 330 115|204 270 302                           19;     SET3; JSP34; J1;
 4425/4: 304 000 031|171 150|304 001 000|054|171 022|011|220 150 306|052|304 123 163
                                                                       20;     SET25; C6; SETB400; AND; M1; OR; J2=Z; ERASE;SETB51563;
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 55
                                                                       
 4430/5: 300 276 366|221 051 023|164 361                                       Y0M11; J18<Z; SHL-8;
 4432/1: 170 144|171 156|164 061|201 271 024                           21;     =I6; Q6; SHL24; J19;
 4433/4: 304 002 001|054|224 151 040|304 000 032|171 262|300 016 240|036|200 150 306|052
                                                                       22;     SETB1001; AND; J23=Z; SET26; M11; YA12; -; J2!=Z; ERASE;
 4437/0: 300 276 366|304 000 001|011|301 276 366                               Y0M11; SET1; OR; =Y0M11;
 4440/4: 300 276 366|205 051 043|171 150|164 113|205 051 043|304 000 045|201 271 023
                                                                       23;     Y0M11; J26>=Z; C6; SHL37; J26>=Z; SETB45; J18;
 4443/5: 300 010 273|300 010 274                                       26;     V3; V4;
 4444/5: 166 060|065|052|164 261|304 000 003|201 031 023|201 271 032           SHLDC3; REV; ERASE; SHL-40; SET3; J18!=; J21;
                                                                                                               [ DH put blank line in here to conform to normal Usercode layout
                                                                                                               [ suspect that this is the reason for the annotation
=== Start P42V-1; at address 2344
                                                                       P42;      (COMPARE);  (== note pencil annotation, possibly moving some instructions to this line? ==)
 4450/0: 043|011|042|012|225 031 052|012|221 031 054                           DUPD; OR; DUP; PERM; J2=;PERM; J5=;        [ but annotation here may be more significant
 4451/5: 304 000 157|200 264 124                                       1;      SET111; JP5;
 4452/5: 012|052|052                                                   2;      PERM; ERASE; ERASE;
 4453/2: 065                                                           3;      REV;
 4453/3: 052|200 360 000                                               4;      ERASE; EXIT1;
 4454/1: 066|222 151 053|065|042|164 357|205 151 051                   5;      CAB; J3=Z;REV; DUP; SHL-9; J1!=Z;
 4456/0: 065|042|304 001 377|054|066|036|205 151 051|042|164 355               REV; DUP; SETB777; AND; CAB; -; J1!=Z;DUP; SHL-10;
 4460/2: 042|223 151 053                                                       DUP; J4=Z;
 4461/0: 027|033|225 151 051|033|027|200 360 000                               NEG; NOT; J1=Z;NOT; NEG; EXIT1;
=== Start P43V-1; at address 2355
                                                                       P43;    (GENERATE);
 4463/0: 100 376|164 261|304 000 033|036|017|221 151 071                       M14M15; SHL-40; SET27; -; DUMMY; J1=Z;
 4465/0: 304 015 033|167 361|304 000 001|043|200 331 130|164 041|056|065|200 330 165
                                                                               SETB6433; SHC-8; SET1; DUPD; JSP45; SHL16; +; REV; JSP36;
 4470/1: 304 000 003|200 330 115                                               SET3; JSP34;
 4471/1: 200 360 000                                                   1;      EXIT1;
                                                                       
=== Start P44V0; at address 2363
                                                                       P44V0;  (BLOCK BEGIN 11/3/63);
V-store at 04472 = 220 033 000 000 121 000                                     V0=B4401540000050400;
 4473/0: 202 151 112|100 376|042|164 261                                       J7!=Z; M14M15; DUP; SHL-40;
 4474/2: 304 000 256|201 031 077                                               SETB256; J3#; (if TS != begin (bl));
 4475/2: 052                                                                   ERASE;
 4475/3: 052                                                           1;      ERASE;
 4475/4: 304 000 001|301 016 234|200 360 000                           2;      SET1; =YA8; EXIT1;
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 56
                                                                       
 4477/1: 141 360|304 000 001|172 370|304 000 056|036|223 151 102|304 000 064
                                                                       3;      M-I15; SET1; =+C15; SET46; -; J5=Z; SET52;
 4502/0: 200 264 124                                                   4;      JP5;
 4502/3: 042|164 021|224 051 105|100 376|042|164 261|304 000 116|036|220 151 125|052
                                                                       5;      DUP; SHL8; J6<Z; M14M15; DUP; SHL-40; SET78; -; J9=Z; ERASE;
 4505/4: 041|033|050|300 016 254|164 011|011                           6;      ZERO; NOT; CONT; YA24; SHL4; OR;
 4507/1: 041|301 016 254                                                       ZERO; =YA24; (R := 0);
 4507/5: 304 377 377|164 041|300 016 235|056|164 041|300 016 240|056           SET-1; SHL16; YA9; +; SHL16; YA12; +;
 4512/2: 304 015 033|167 361|304 000 002|200 331 130|164 041|056|304 000 003|200 330 165
                                                                       7;      SETB6433; SHC-8; SET2; JSP45; SHL16; +; SET3; JSP36;
 4515/4: 171 350|033|027|042|170 350|042|167 363|220 051 102|052|041           C14; NOT; NEG; DUP; =C14; DUP; SHC-7; J4<Z; ERASE; ZERO;
 4520/1: 301 016 235|041|300 011 072|304 000 007|200 330 115                   =YA9; ZERO; V0; SET7; JSP34;
 4522/2: 171 302|301 016 240|041|200 330 143|041|303 316 370|204 271 075
                                                                       8;      M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; J2;
 4525/0: 300 016 240|101 376|041|033|050|304 000 001|200 330 165|052|202 271 122
                                                                       9;      YA12; =M14M15; ZERO; NOT; CONT; SET1; JSP36; ERASE; J8;
                                                                       
=== Start P45V-1; at address 2392
                                                                       P45;    (i + contents of N1);
 4530/0: 171 344|056|171 024                                                   I14; +; I1;
 4530/5: 065|042|304 000 006|036|042|224 051 133|012|052               1;      REV; DUP; SET6; -; DUP; J2<Z; PERM; ERASE;
 4532/5: 033|027|205 271 130                                                   NOT; NEG; J1;
 4533/4: 052                                                           2;      ERASE;
 4533/5: 042|202 051 136|304 000 006|056|065|027|033|065|205 271 133   3;      DUP; J4>=Z; SET6; +; REV; NEG; NOT; REV; J3;
 4536/2: 164 033|056|200 360 000                                       4;      SHL13; +; EXIT1;
=== Start P46V-1; at address 2400
                                                                       P46;    (ENTRY 26/1/63);
 4540/0: 300 016 240|170 262|171 316|300 016 227|203 271 143                   YA12; =M11; Q12; YA3; J4;
 4542/1: 141 300|300 316 370|225 031 150                               1;      M-I12; Y2M12; J3=;
 4543/3: 171 302|171 262|036|201 151 142                               4;      M12; M11; -; J1!=Z;
 4544/5: 041|200 330 143|065|170 316|151 313                           2;      ZERO; JSP35; REV; =Q12; M12TOQ11;
 4546/2: 041|301 316 366|041|301 316 367                                       ZERO; =Y0M12; ZERO; =Y1M12;
 4547/4: 303 316 370|041|200 360 000                                           =Y2M12Q; ZERO; EXIT1;
 4550/5: 052|151 313|170 316|300 276 367|200 360 000                   3;      ERASE; M12TOQ11; =Q12; Y1M11; EXIT1;
=== Start P47V-1; at address 2411
                                                                       P47;    (DECL 7/3/63);
 4553/0: 205 151 155|304 000 017|171 030|027|033|204 151 161|052|200 331 140
                                                                               J1!=Z; SET15; C1; NEG; NOT; J2!=Z; ERASE; JSP46;
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 57
                                                                       
 4555/5: 171 262|301 012 105|171 156|301 016 216|042|170 156|042|221 151 221|221 111 162|304 000 044
                                                                       1;      M11; =V5P53; Q6; =W0; DUP; =Q6; DUP; J13=Z; J3>Z; SET36;
 4561/4: 200 264 124                                                   2;      JP5;
 4562/1: 300 276 366|042|167 377|304 000 023|065                       3;      Y0M11; DUP; SHC-1; SET19; REV;
 4563/5: 224 051 161|052|200 331 223|152 143                                   J2<Z; ERASE; JSP48; I6TOQ3;
 4565/2: 041|300 016 224|171 150|200 331 050|170 150|164 341           4;      ZERO; YA0; C6; JSP42; =C6; SHL-16;
 4567/3: 164 041|300 016 243|056|042|301 276 366|065|300 016 225|204 151 212|300 016 235|065
                                                                               SHL16; YA15; +; DUP; =Y0M11; REV; YA1; J11!=Z; YA9; REV;
 4573/0: 304 000 003|225 031 210                                               SET3; J10=;
 4574/0: 225 151 204|052|041|200 331 130|170 142|041                           J9=Z; ERASE; ZERO; JSP45; =M6; ZERO;
 4575/5: 171 350|164 025|056                                           5;      C14; SHL10; +;
 4576/4: 170 144|171 156|041|033|050|042|301 276 367                   6;      =I6; Q6; ZERO; NOT; CONT; DUP; =Y1M11;
 4600/3: 171 064|300 016 216|170 156|204 151 203                               I3; W0; =Q6; J8!=Z;
 4602/1: 052|052                                                       7;      ERASE; ERASE;
 4602/3: 041|301 012 105|200 360 000                                   14;     ZERO; =V5P53; EXIT1;
 4603/4: 041|200 331 246|203 271 202                                   8;      ZERO; JSP49; J14;
 4604/5: 042|033|027|301 016 235|304 000 003|056|042|304 374 000       9;      DUP; NOT; NEG; =YA9; SET3; +; DUP; SETB176000;
 4607/1: 054|225 151 175|304 000 077|200 264 124                               AND; J5=Z;SET63; JP5;
 4610/5: 052|171 070|304 000 002|056|056|205 271 175                   10;     ERASE; C3; SET2; +; +; J5;
 4612/4: 300 016 237|065|304 000 003|036|205 151 215|171 070|056|027|033|204 271 176
                                                                       11;     YA11; REV; SET3; -; J12!=Z; C3; +; NEG; NOT; J6;
 4615/5: 042|033|027|042|301 016 237|304 374 000                       12;     DUP; NOT; NEG; DUP; =YA11; SETB176000;
 4617/3: 054|224 151 176|304 000 076|200 264 124                               AND; J6=Z; SET62; JP5;
 4621/1: 170 064|171 270|164 041|202 271 165                           13;     =I3; C11; SHL16; J4;
=== Start P48V-1; at address 2451
                                                                       P48;    (DIM);
 4623/0: 171 270|033|027|304 377 000|054|200 151 227                           C11; NOT; NEG; SETB177400; AND; J2!=Z;   (== Last opcode manually annotated ==)
 4624/5: 167 061|042|164 261|171 270|203 031 227                               SHC24; DUP; SHL-40; C11; J3!=;
 4626/3: 052|167 321                                                   1;      ERASE; SHC-24;
 4627/0: 200 360 000                                                   2;      EXIT1;
 4627/3: 033|027|304 377 000|054|200 151 232|304 000 037|200 264 124   3;      NOT; NEG; SETB177400; AND; J4!=Z; SET31; JP5;
 4632/0: 164 021|171 270|166 361|203 271 226                           4;      SHL8; C11; SHLD-8; J1;
=== Start P49V9; at address 2470
                                                                       P49V9;  (UNCHAIN 29/1/63 );
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 58
                                                                       
V-store at 04634 = 151 141 155 000 145 000  
V-store at 04635 = 111 103 115 000 105 000                                     V0=B 3226 0555 0006 2400; V1=B2224 1515 0004 2400;
V-store at 04636 = 000 327 000 000 201 223  
V-store at 04637 = 000 337 000 333 000 000                                     V2=B 0015 3400 0010 0623; V3=B0015 7400 6660 0000;
V-store at 04640 = 211 215 205 311 315 305  
V-store at 04641 = 000 000 000 377 377 377                                     V4=B 4230 6605 6234 6705; V5=B0000 0000 7777 7777;
V-store at 04642 = 000 000 377 377 377 377  
V-store at 04643 = 011 000 015 000 005 000                                     V6=B 0000 0377 7777 7777; V7=B0220 0015 0000 2400;
V-store at 04644 = 051 000 055 000 045 000  
V-store at 04645 = 000 000 000 000 000 000                                     V8=B 1220 0055 0002 2400; V9=0;
 4646/0: 170 062|171 156|301 016 221|171 076|301 011 245|171 376|301 016 216|171 356|301 016 217|047|052|170 376|170 356
                                                                               =M3; Q6; =W3; Q3; =V9;  Q15; =W0; Q14; =W1; STR; ERASE; =Q15; =Q14;
 4652/4: 171 064|042|204 151 257|052|300 016 217|170 356|300 016 216|170 376
                                                                       1;      I3; DUP; J2!=Z; ERASE; W1; =Q14; W0; =Q15;
 4655/3: 300 011 245|170 076|300 016 221|170 156|200 360 000                   V9; =Q3; W3; =Q6; EXIT1;
 4657/4: 164 041|304 377 377|200 333 357|164 341|200 332 051|166 140   2;      SHL16; SET-1; JSP63; SHL-16; JSP51; SHLDC6;
 4662/1: 065|052|042|164 021|164 301|170 064|042|224 051 334|042|164 251
                                                                               REV; ERASE; DUP; SHL8; SHL-32; =I3; DUP; J17<Z; DUP; SHL-44;
 4664/5: 042|221 151 354                                                       DUP; J22=Z;
 4665/3: 164 377|222 151 324|171 370|042|164 353|202 151 272|304 000 021
                                                                               SHL-1; J14=Z; C15; DUP; SHL-11; J4!=Z; SET17;
 4670/1: 300 016 216|170 376|300 016 217|170 356|200 264 124           3;      W0; =Q15; W1; =Q14; JP5;
 4672/2: 042|167 377|221 051 316|065|052|300 011 234                   4;      DUP; SHC-1; J10<Z; REV; ERASE; V0;
 4674/1: 171 356|224 051 275|052|300 011 235                                   Q14; J5<Z; ERASE; V1;
 4675/4: 065|164 125|167 007|164 007|170 070|164 060|164 261|304 000 103|225 031 311
                                                                       5;      REV; SHL42; SHC3; SHL3; =C3; SHLC3; SHL-40; SET67; J9=;
 4700/5: 164 041|171 364                                               6;      SHL16; I15;
 4701/3: 164 101|164 301|056|041|300 011 241|304 000 030               7;      SHL32; SHL-32; +; ZERO; V5; SET24;
 4703/3: 171 150|036|170 150|166 140|033|065|033|300 156 371|141 140|054|065
                                                                       8;      C6; -; =C6; SHLDC6; NOT; REV; NOT; Y3M6; M-I6; AND; REV;
 4706/2: 300 156 371|054|066|041|065|166 140|066|011                           Y3M6; AND; CAB; ZERO; REV; SHLDC6; CAB; OR;
 4710/1: 303 156 371|011|301 156 371|204 271 252                               =Y3M6Q; OR; =Y3M6; J1;
 4711/5: 164 061|171 364|164 101|167 015|056|171 362|164 101|164 321|056
                                                                       9;      SHL24; I15; SHL32; SHC6; +; M15; SHL32; SHL-24; +;
 4714/3: 041|300 011 242|304 000 020|203 271 303                               ZERO; V6; SET16; J8;
 4716/1: 167 357|224 051 320|164 061|164 261|304 000 124|202 032 000   10;     SHC-9; J11<Z; SHL24; SHL-40; SET84; J28!=;
 4720/4: 052|171 356|222 051 323|304 000 123                           11;     ERASE; Q14; J13<Z; SET83;
 4722/1: 164 041|171 362|203 271 301                                   12;     SHL16; M15; J7;
 4723/2: 304 000 163|205 271 300                                       13;     SET115; J6;
 4724/2: 171 370|042|164 355|304 000 047|065|201 151 270|052|167 357   14;     C15; DUP; SHL-10; SET39; REV; J3!=Z; ERASE; SHC-9;
 4726/5: 220 051 331|164 101|164 261|304 000 124|202 032 000                   J15<Z; SHL32; SHL-40; SET84; J28!=;
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 59
                                                                       
 4731/0: 052|171 356|224 051 333|304 000 023|164 041|171 362|203 271 301
                                                                       15;     ERASE; Q14; J16<Z; SET19; SHL16; M15; J7;
 4733/4: 304 000 063|205 271 300                                       16;     SET51; J6;
 4734/4: 052|171 356|204 051 336|304 000 241|205 271 300               17;     ERASE; Q14; J18>=Z; SET161; J6;
 4736/4: 171 370|304 011 010|201 031 341|052|304 000 301|205 271 311   18;     C15; SETB4410; J19!=; ERASE; SET193; J9;
 4741/1: 042|304 002 011|054|203 151 343|042|164 357|204 151 347       19;     DUP; SETB1011; AND; J20!=Z; DUP; SHL-9; J21!=Z;
 4743/3: 304 000 170|054|027|170 070|300 011 236|300 011 237           20;     SETB170; AND; NEG; =C3; V2; V3;
 4745/4: 166 060|052|164 121|164 321|171 362|203 271 301                       SHLDC3; ERASE; SHL40; SHL-24; M15; J7;
 4747/4: 042|164 125|167 005|065|164 353|042|042|056|056|056|164 007   21;     DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +; +; SHL3;
 4752/1: 170 070|300 011 240|164 060|164 261|205 271 300                       =C3; V4; SHLC3; SHL-40; J6;
 4754/1: 171 370|012|052|043|164 013|224 051 357|167 353|205 051 360   22;     C15; PERM; ERASE; DUPD; SHL5; J31<Z; SHC-11; J32>=Z;
 4756/4: 304 000 050|201 271 270                                       30;     SET40; J3;
 4757/4: 304 012 000|054|204 151 356                                   31;     SETB5000; AND; J30!=Z;
 4760/5: 052|042|304 004 200|054|224 151 356|042|304 002 001|054|204 151 364|042|164 357|203 151 371
                                                                       32;     ERASE; DUP; SETB2200; AND;J30=Z; DUP; SETB1001; AND; J23!=Z; DUP; SHL-9; J25!=Z;
 4764/4: 171 062|171 262|036|202 152 001|042|164 117|202 052 001|171 356|304 000 001|011|301 276 366
                                                                       23;     M3; M11; -; J29!=Z; DUP; SHL39; J29>=Z; Q14; SET1; OR; =Y0M11;
 4770/3: 300 011 243|204 271 275                                       24;     V7; J5;
 4771/3: 171 356|221 051 375|304 005 010|203 031 370|052|304 000 003|164 041|171 362|203 271 301
                                                                       25;     Q14; J26<Z; SETB2410; J24!=; ERASE; SET3; SHL16; M15; J7;
 4775/1: 042|164 113|202 051 377|052|304 000 045|205 271 300           26;     DUP; SHL37; J27>=Z; ERASE; SET37; J6;
 4777/2: 300 011 244|204 271 275                                       27;     V8; J5;
 5000/2: 304 000 046|201 271 270                                       28;     SET38; J3;
 5001/2: 304 000 032|201 271 270                                       29;     SET26; J3;
=== Start P50V0; at address 2564
                                                                       P50V0;  (print message);
V-store at 05003 = 000 000 000 000 000 000                                     V0=0;
 5004/0: 171 156|301 012 003|201 332 037|300 006 206|301 006 054|201 327 025
                                                                               Q6; =V0; JS10; V92P29; =V2P29; JS25P29;
 5006/5: 304 000 001|223 032 020|304 000 006|223 032 020                       SET1; J2=; SET6; J2=;
 5010/5: 201 332 037|304 006 054|170 144|304 006 055|170 142           1;      JS10; SETAV2P29; =I6; SETAV3P29; =M6;
 5013/0: 300 006 126|301 006 054|300 006 062|301 006 055|171 156|200 336 115|043|304 000 003|036
                                                                               V44P29; =V2P29; V8P29; =V3P29; Q6; JSP114; DUPD; SET3; -;
 5016/4: 225 152 045|201 327 004|171 156|200 336 115                           J14=Z; JS20P29; Q6; JSP114;
 5020/3: 201 332 037|304 006 137|170 144|304 006 140|170 142|171 156|200 336 115
                                                                       2;      JS10; SETAV53P29; =I6; SETAV54P29; =M6; Q6; JSP114;
 5023/3: 304 000 002|204 032 031|300 006 244                                   SET2; J9!=; V122P29;
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                                                                       [== Page 60
                                                                       
 5025/0: 301 006 137|300 276 366|164 101|164 277                       12;     =V53P29; Y0M11; SHL32; SHL-33;
 5026/4: 200 334 117|300 014 115|300 006 220|011|301 006 140|171 156|200 336 115
                                                                               JSP127; V2P127; V102P29; OR; =V54P29; Q6; JSP114;
 5031/4: 300 012 003|170 156|304 000 005|036|201 052 034|200 360 000   9;      V0; =Q6; SET5; -; J3>=Z; EXIT1;
 5034/1: 200 324 231                                                   3;      JSP7;
 5034/4: 200 327 366|304 000 157|201 032 034                           4;      JSP32; SETB157; J3!=;
 5036/1: 200 324 231|203 261 115                                       5;      JSP7; J112P0;
 5037/1: 300 016 260|170 150|304 000 003|205 032 042                   10;     YA28; =C6; SET3; J11!=;
 5041/0: 300 010 056|225 152 042|300 010 056|170 150                           V4P33; J11=Z; V4P33; =C6;
 5042/5: 200 360 000                                                   11;     EXIT1;
 5043/2: 301 006 140|301 006 137|304 000 006|203 324 201|203 272 020   13;     =V54P29; =V53P29; SET6; JS2P5; J2;
 5045/5: 171 156|065|204 324 067|203 272 020                           14;     Q6; REV; JS4P3; J2;
 5047/2: 301 006 140|301 006 137|200 272 004                           15;     =V54P29; =V53P29; JP50;
                                                                       
=== Start P51V-1; at address 2601
 5051/0: 042|164 347|164 007|065|304 037 377|054                       P51;    DUP; SHL-13; SHL3; REV; SETB17777; AND;
 5052/4: 152 326|170 142|302 156 371|300 156 371|065|066|170 150|200 360 000
                                                                               I13TOQ6; =M6; Y3M6Q; Y3M6; REV; CAB; =C6; EXIT1;
=== Start P52V-1; at address 2606
                                                                       P52;    (end block);
 5056/0: 201 152 057|041|304 001 160                                           J1!=Z; ZERO; SETB560;
 5057/1: 166 361|200 330 115                                           1;      SHLD-8; JSP34;
 5060/0: 041|200 332 110                                               2;      ZERO; JSP53;
 5060/4: 043|052|167 367|164 243|301 016 254                           5;      DUPD; ERASE; SHC-5; SHL-47; =YA24; (restore R);
 5062/1: 141 360|304 000 001|172 370|171 350|164 025|300 016 235|056           M-I15; SET1; =+C15; C14; SHL10; YA9; +;
 5064/4: 100 376|042|170 076|161 301|301 016 234                               M14M15; DUP; =Q3; SHA-32; =YA8;
 5066/2: 171 064|301 016 235|171 062|301 016 240|141 360|304 000 001|172 370
                                                                               I3; =YA9; M3; =YA12; M-I15; SET1; =+C15;
 5071/1: 143 340|012|204 152 076|052                                           DC14; PERM; J3!=Z; ERASE;
 5072/2: 100 376|304 000 015|200 330 171|264 352 075                           M14M15; SET13; JSP37; J4C14NZ;
 5074/1: 041|304 001 375|166 361|200 330 115                                   ZERO; SETB775; SHLD-8; JSP34;
 5075/4: 304 000 003|200 333 357                                       4;      SET3; JSP63;
 5076/4: 041|200 332 250|200 360 000                                   3;      ZERO; JSP54; EXIT1;
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=== Start P53V7; at address 2632
                                                                       P53V7;  (COLLAPSE);
V-store at 05100 = 377 377 000 000 377 377                                     V0=B7777740000177777;
V-store at 05101 = 000 000 000 000 000 000  
V-store at 05102 = 000 000 000 000 000 000  
V-store at 05103 = 000 000 000 000 000 000  
V-store at 05104 = 000 000 000 000 000 000  
V-store at 05105 = 000 000 000 000 000 000  
V-store at 05106 = 000 000 000 000 000 000  
V-store at 05107 = 000 000 000 000 000 000                                     V1=0; V2=0; V3=0; V4=0; V5=0; V6=0; V7=0;
 5110/0: 300 012 107|202 152 242|300 016 254|202 152 242                       V7; J18!=Z; YA24; J18!=Z;
 5112/0: 300 016 240|171 302|036|221 152 243                                   YA12; M12; -; J19=Z; (if NL=NLP);
 5113/3: 171 156|301 012 101|141 360|304 000 001|172 370|102 376               Q6; =V1; M-I15; SET1; =+C15; M14M15Q;
 5115/5: 170 076|170 070|300 016 240|170 142|152 306                           =Q3; =C3; YA12; =M6; I12TOQ6;
 5117/4: 153 153|300 276 370|223 152 126|300 276 367|164 017|203 052 126|300 276 366|167 377
                                                                               IM6TOQ11; Y2M11; J1=Z; Y1M11; SHL7; J1>=Z; Y0M11; SHC-1;
 5123/1: 223 052 126|300 016 256|203 152 126|304 000 102|171 262|301 012 105|200 264 124
                                                                               J1<Z; YA26; J1!=Z; SET66; M11; =V5; JP5;
 5126/3: 140 260|171 262|171 302|036|203 152 133|151 154               1;      M+I11; M11; M12; -; J2!=Z; M6TOQ12;
 5130/3: 041|301 012 107                                                       ZERO; =V7; (COLL := 0);
 5131/1: 151 041|300 012 101|170 156|041|301 012 105|200 360 000               M2TOQ1; V1; =Q6; ZERO; =V5; EXIT1;
 5133/3: 151 261|300 276 370|223 152 126                               2;      M11TOQ1; Y2M11; J1=Z; (if name cols = 0);
 5134/5: 300 276 370|300 276 367|042|171 262|301 012 105|201 052 163           Y2M11; Y1M11; DUP; M11; =V5; J7>=Z;
 5137/2: 052|241 072 147|300 016 240|170 262                                   ERASE; J5C3Z; YA12; =M11;
 5140/5: 141 260|300 276 370|203 032 145|171 076|301 012 104|041|300 006 146
                                                                       3;      M-I11; Y2M11; J4!=; Q3; =V4; ZERO; V60P29;
 5143/4: 300 006 150|202 332 047|300 012 104|170 076                           V62P29; JS15P50; V4; =Q3;
 5145/3: 171 062|171 262|036|205 152 140|151 033                       4;      M3; M11; -; J3!=Z; M1TOQ11;
 5147/1: 300 276 366|164 321|171 042|054|203 152 162                   5;      Y0M11; SHL-24; M2; AND; J6!=Z;
 5151/0: 300 276 367|164 277|304 104 204|036|223 152 162|300 016 256|203 152 162|171 156|301 012 003
                                                                               Y1M11; SHL-33; SETB42204; -; J6=Z; YA26; J6!=Z; Q6; =V0P50;
 5154/5: 300 006 210|301 006 137                                               V94P29; =V53P29;
 5155/5: 300 006 212|301 006 140|300 006 224|301 006 244                       V96P29; =V54P29; V106P29; =V122P29;
 5157/5: 171 076|301 012 104|304 000 002|205 332 010|300 012 104|170 076
                                                                               Q3; =V4; SET2; JS1P50; V4; =Q3;
 5162/3: 052|203 272 126                                               6;      ERASE; J1;
 5163/1: 304 000 001|301 012 107                                       7;      SET1; =V7; (COLL := 1);
 5164/1: 052|171 350|027|033|203 152 166|200 333 141|203 272 126               ERASE; C14; NEG; NOT; J8!=Z; JSP61; J1;
 5166/3: 300 276 367|300 276 366|066|300 016 240|170 262               8;      Y1M11; Y0M11; CAB; YA12; =M11;
 5170/3: 141 260|300 276 370|224 032 201|171 062|171 262|036|203 152 170
                                                                       9;      M-I11; Y2M11; J11=; M3; M11; -; J9!=Z;
 5173/1: 151 033|065|304 377 376|054|171 142|171 262|036|202 152 177           M1TOQ11; REV; SETB177776; AND; M6; M11; -; J10!=Z;
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 5175/4: 140 140|301 276 366|052|052|203 272 126                               M+I6; =Y0M11; ERASE; ERASE; J1;
 5177/2: 301 156 366|301 156 370|301 156 367|140 140|203 272 126       10;     =Y0M6; =Y2M6; =Y1M6; M+I6; J1;
 5201/4: 052|164 341|171 042|054|170 270|171 156|301 012 102|171 076|301 012 103
                                                                       11;     ERASE; SHL-16; M2; AND; =C11; Q6; =V2; Q3; =V3;
 5204/4: 300 276 366|200 331 223|304 001 000|164 041|011|042                   Y0M11; JSP48; SETB400; SHL16; OR; DUP;
 5206/5: 301 276 366|065|170 076|300 276 367|042|170 156|223 052 226|052
                                                                               =Y0M11; REV; =Q3; Y1M11; DUP; =Q6; J13<Z; ERASE;
 5211/3: 041|304 001 377|042|171 150|054|065|171 070|054|200 331 050           ZERO; SETB777; DUP; C6; AND; REV; C3; AND; JSP42;
 5214/0: 041|171 150|164 357|171 070|164 357|200 331 050|164 023|011|170 150
                                                                               ZERO; C6; SHL-9; C3; SHL-9; JSP42; SHL9; OR; =C6;
 5216/5: 171 076|171 156|043|300 012 100                                       Q3; Q6; DUPD; V0;
 5220/1: 042|033|066|054|164 341|066                                           DUP; NOT; CAB; AND; SHL-16; CAB;
 5221/2: 164 041|041|200 332 250|042|066|054|012                               SHL16; ZERO; JSP54; DUP; CAB; AND; PERM;
 5223/0: 033|054|011|301 276 367                                               NOT; AND; OR; =Y1M11;
 5224/0: 300 012 102|170 156|300 012 103|170 076|151 033|203 272 126   12;     V2; =Q6; V3; =Q3; M1TOQ11; J1;
 5226/3: 171 150|042|304 016 000                                       13;     C6; DUP; SETB7000;
 5227/3: 054|203 152 236|171 070|164 355|042|204 152 232|052|304 002 000|200 272 235
                                                                               AND; J17!=Z; C3; SHL-10; DUP; J14!=Z; ERASE; SETB1000; J16;
 5232/4: 164 377|203 152 234|304 000 157|200 264 124                   14;     SHL-1; J15!=Z; SET111; JP5;
 5234/3: 304 010 001                                                   15;     SETB4001;
 5235/0: 011|042|170 150|171 156|301 276 367                           16;     OR; DUP; =C6; Q6; =Y1M11;
 5236/3: 042|171 070|065|200 331 050|052|171 156|300 012 103|164 101|164 301|200 331 246|200 272 224
                                                                       17;     DUP; C3; REV; JSP42; ERASE; Q6; V3; SHL32; SHL-32; JSP49; J12;
 5242/2: 300 016 240|170 302                                           18;     YA12; =M12; (NLP := NL);
 5243/1: 041|301 012 105|041|301 012 107|052|200 360 000               19;     ZERO; =V5; ZERO; =V7; ERASE; EXIT1;
=== Start P54V1; at address 2728
                                                                       P54V1;  (prog[ ]:=y 15/2/63);
V-store at 05246 = 000 000 000 000 377 377  
V-store at 05247 = 000 000 000 000 000 000                             V0=B 0000 0000 0017 7777;   V1=0;
 5250/0: 171 156|301 012 247|224 152 252|171 344|164 033|171 024|056|065
                                                                               Q6; =V1; J1=Z; I14; SHL13; I1; +; REV;
 5252/4: 164 041|167 007|042|164 007|170 070|164 273|170 143           1;      SHL16; SHC3; DUP; SHL3; =C3; SHL-35; =RM6;
 5254/5: 302 156 371|300 156 371|065|043|166 060|164 301|164 041|301 016 247
                                                                               Y3M6Q; Y3M6; REV; DUPD; SHLDC3; SHL-32; SHL16; =YA19;
 5257/4: 052|041|300 012 246|304 000 040|171 070|036|170 070|166 060|033|066
                                                                               ERASE; ZERO; V0; SET32; C3; -; =C3; SHLDC3; NOT; CAB;
 5262/3: 054|012|033|054|066|041|065|166 060|012                               AND; PERM; NOT; AND; CAB; ZERO; REV; SHLDC3; PERM;
 5264/1: 011|301 156 371|011|141 140|301 156 371|300 012 247|170 156|200 360 000
                                                                               OR; =Y3M6; OR;  M-I6;  =Y3M6; V1; =Q6; EXIT1;
=== Start P55V0; at address 2745
                                                                       P55V0;  (IMP SR 4/2/63);
                                                                       
                                                                       [ -- Graham T
                                                                       [== Page 63
                                                                       
V-store at 05270 = 000 000 000 000 000 000                                     V0=0;
 5271/0: 300 016 233|221 152 310|300 016 231|304 000 163|223 032 274|304 000 173|200 032 310
                                                                               YA7; J4=Z; YA5; SET115; J1=; SET123; J3!=;
 5274/3: 052|304 000 317|164 007|171 344|056|164 033|171 024|056|164 061
                                                                       1;      ERASE; SETB317; SHL3; I14; +; SHL13; I1; +; SHL24;
 5277/1: 304 000 001|042|171 350|056|042|170 350|300 012 270|033|027|301 012 270
                                                                               SET1; DUP; C14; +; DUP; =C14; V0; NOT; NEG; =V0;
                                                                       
 5302/1: 042|164 123|204 052 303|200 264 124                                   DUP; SHL41; J2>=Z; JP5;
 5303/4: 304 024 100|056|164 105|304 000 003|200 330 115               2;      SETB12100; +; SHL34; SET3; JSP34;
 5305/4: 200 330 165|300 016 230|304 000 114|220 032 310|151 001               JSP36; YA4; SET76; J3=; M0TOQ1;
 5310/0: 052                                                           3;      ERASE;
 5310/1: 200 360 000                                                   4;      EXIT1;
=== Start P56V-1; at address 2761
                                                                       P56;    (compare type cols);
 5311/0: 203 152 312|300 276 367|042|170 156                                   J1!=Z; Y1M11; DUP; =Q6;
 5312/3: 047|042|221 152 317|012|164 301|200 331 050                   1;      STR; DUP; J3=Z; PERM; SHL-32; JSP42;
 5314/2: 164 101|171 156|050|164 301|170 150|171 156|301 276 367|200 360 000
                                                                       2;      SHL32; Q6; CONT; SHL-32; =C6; Q6; =Y1M11; EXIT1;
 5317/1: 052|164 301|200 333 054|202 272 314                           3;      ERASE; SHL-32; JSP60; J2;
=== Start P57V4; at address 2774
                                                                       P57V4; (ACT. OP.);
V-store at 05321 = 000 327 000 000 201 223  
V-store at 05322 = 000 337 000 333 000 000                             V0=B 0015 3400 0010 0623;   V1=B 0015 7400 6660 0000;
V-store at 05323 = 305 315 311 205 215 211  
V-store at 05324 = 207 207 213 217 217 217                             V2=B 6134 6711 4130 6611;   V3=B 4170 3613 4370 7617;
V-store at 05325 = 000 000 000 000 000 000                             V4=0;
 5326/0: 171 156|301 012 325|171 022|200 152 344|100 376|164 261|304 000 036|015
                                                                               Q6; =V4; M1; J5!=Z; M14M15; SHL-40; SETB36; NEV;
 5331/0: 304 000 037|054|201 152 333|304 001 244|301 016 226                   SETB37; AND; J1!=Z; SETB644; =YA2;
 5333/1: 304 000 001|042|200 330 276|042|056|042|200 330 171|100 376   1;      SET1; DUP; JSP41; DUP; +; DUP; JSP37; M14M15;
 5335/4: 164 261|304 000 317|036|202 152 354|170 022                           SHL-40; SET207; -; J7!=Z; =M1;
 5337/3: 041|304 001 134|166 361                                       2;      ZERO; SETB534; SHLD-8;
 5340/3: 200 330 115|143 340|300 012 270|027|033|301 012 270           3;      JSP34; DC14; V0P55; NEG; NOT; =V0P55;
 5342/4: 300 012 325|170 156|200 360 000                               4;      V4; =Q6; EXIT1;
 5344/0: 300 016 231|304 000 177|205 032 351|052|304 060 134|164 101|304 000 002
                                                                       5;      YA5; SET127; J6!=; ERASE; SETB30134; SHL32; SET2;
 5347/0: 304 000 005|262 032 354                                               SET5; J7C1NZ;
 5350/0: 052                                                                   ERASE; (FAIL 5 IF M!=Z);
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 5350/1: 141 360|304 000 001|172 370|203 272 340                               M-I15; SET1; =+C15; J3;
 5351/5: 304 000 163|015|304 000 367|054|304 000 034|065|225 152 354   6;      SETB163; NEV; SETB367; AND; SET28; REV; J8=Z;
 5354/2: 200 264 124                                                   7;      JP5;
 5354/5: 033|027|242 032 354|052|171 030|220 053 012|200 331 140|042|223 052 365
                                                                       8;      NOT; NEG; J7C1Z; ERASE; C1; J19<Z; JSP46; DUP; J13<Z;
 5357/5: 202 152 362|304 001 377|164 041|300 016 243|056|301 276 366           J9!=Z; SETB777; SHL16; YA15; +; =Y0M11;
 5362/2: 171 042|151 266                                               9;      M2; M11TOQ6;
 5363/0: 170 144|171 156                                               10;     =I6; Q6;
 5363/4: 164 061                                                       11;     SHL24;
 5364/0: 304 000 001|200 330 165|204 272 342                           12;     SET1; JSP36; J4;
 5365/3: 041|050|170 156|300 276 366|304 001 000|164 041|011|042|301 276 366
                                                                       13;     ZERO; CONT; =Q6; Y0M11; SETB400; SHL16; OR; DUP; =Y0M11;
 5370/2: 205 052 372|304 000 241                                               J15>=Z; SET161;
 5371/2: 170 150|171 156|164 341|204 272 363                           14;     =C6; Q6; SHL-16; J11;
 5372/5: 171 150|304 011 010|201 033 000|052|154 006|171 156|042|170 144|164 335
                                                                       15;     C6; SETB4410; J16!=; ERASE; C0TOQ6; Q6; DUP; =I6; SHL-18;
 5375/5: 170 142|304 000 301|170 150|171 156|164 021|200 272 364               =M6; SET193; =C6; Q6; SHL8; J12;
 5400/1: 042|304 002 011|054|203 153 002|042|164 357|204 153 005       16;     DUP; SETB1011; AND; J17!=Z; DUP; SHL-9; J18!=Z;
 5402/3: 304 000 170|054|027|170 070|300 012 321|300 012 322|166 060|052|200 272 363
                                                                       17;     SETB170; AND; NEG; =C3; V0; V1; SHLDC3; ERASE; J10;
 5405/4: 042|164 125|167 005|065|164 353|042|042|056|056               18;     DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +;
 5407/4: 056|164 007|027|170 070|300 012 323|164 060|202 272 371               +; SHL3; NEG; =C3; V2; SHLC3; J14;
 5412/0: 300 016 227|304 000 006|200 330 115|300 016 232|304 000 003|036|164 007|170 070|300 012 324
                                                                       19;     YA3; SET6; JSP34; YA6; SET3; -; SHL3; =C3; V3;
 5415/5: 164 060|164 041|171 024|027|033|171 344|164 033|056|056|204 272 363
                                                                               SHLC3; SHL16; I1; NEG; NOT; I14; SHL13; +; +; J11;
=== Start P58V-1; at address 2833
                                                                       P58;    (FS END);
 5421/0: 171 362|221 152 034                                                   M15; J3P50=Z; (end prog if SP = 0);
 5421/5: 100 376|042|164 261|304 000 156|221 033 024|200 360 000       1;      M14M15; DUP; SHL-40; SET110; J2=; EXIT1;
 5424/1: 052|042|167 367|164 243|301 016 254                           2;      ERASE; DUP; SHC-5; SHL-47; =YA24; (restore R);
 5425/4: 042|304 000 001|200 331 130|065|304 377 375|200 333 357               DUP; SET1; JSP45; REV; SET-3; JSP63;
 5430/0: 041|200 332 250|042|041|304 001 164|042|200 332 056                   ZERO; JSP54; DUP; ZERO; SETB564; DUP; JSP52;
 5432/1: 304 000 001|200 330 171|205 273 021                                   SET1; JSP37; J1;
=== Start P59V-1; at address 2844
 5434/0: 304 000 001|042|200 330 276|200 330 171|100 376|042|164 261|304 000 114
                                                                       P59;    SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; SET76;
 5437/0: 036|042|224 153 041|027|033|220 153 045|304 000 070                   -; DUP; J2=Z; NEG; NOT; J4=Z; SET56;
                                                                       [ good65.txt 
                                                                       [ -- Graham T
                                                                       (== Page 65 ==)
                                                                       
                                                                       [ THE NEXT 5 PAGES INCLUDE A LOT OF PENCILLED ANNOTATION, NOT RECORDED HERE
                                                                       
                                                                       
 5441/1: 200 264 124                                                   1;      JP5;
 5441/4: 052|065|304 000 146|221 033 041|052                           2;      ERASE; REV; SET102; J1=; ERASE;
 5443/1: 304 001 000|164 061|056|101 376|200 360 000                   3;      SETB400; SHL24; +; =M14M15; EXIT1;
 5445/0: 167 367|042|012|220 053 051|304 000 173|221 033 041|052|041|033
                                                                       4;      SHC-5; DUP; PERM; J6<Z; SET123; J1=; ERASE; ZERO; NOT;
 5447/4: 050|167 013|101 376|200 360 000                               5;      CONT; SHC5; =M14M15; EXIT1;
 5451/0: 304 000 173|065|201 033 041|052|033|027|041|204 273 047       6;      SET123; REV; J1!=; ERASE; NOT; NEG; ZERO; J5;
=== Start P60V-1; at address 2860
                                                                       P60;    (COMPARE USED ENTRIES );
 5454/0: 042|041|051|304 001 377|054|200 331 050                               DUP; ZERO; REVD; SETB777; AND; JSP42;
 5455/4: 011|200 360 000                                                       OR; EXIT1;
=== Start P61V49; at address 2913
                                                                       P61V49;         (LIBRARY);
V-store at 05457 = 000 000 000 266 070 150  
V-store at 05460 = 000 007 350 272 067 354                                     V0=B 0000 0000 5543 4150;   V1=B 0000 3750 5643 3754;
V-store at 05461 = 000 000 000 001 267 055  
V-store at 05462 = 000 000 000 266 273 056                                     V2=B 0000 0000 0033 3455;   V3=B 0000 0000 5553 5456;
V-store at 05463 = 000 000 000 002 330 350  
V-store at 05464 = 000 000 000 001 332 155                                     V4=B 0000 0000 0055 4350;   V5=B 0000 0000 0035 5155;
V-store at 05465 = 000 000 000 000 011 250  
V-store at 05466 = 000 000 000 001 374 252                                     V6=B 0000 0000 0000 4650;   V7=B 0000 0000 0037 6252;
V-store at 05467 = 000 006 354 166 346 350  
V-store at 05470 = 000 000 000 246 247 350                                     V8=B 0000 3354 3556 3350;   V9=B 0000 0000 5152 3750;
V-store at 05471 = 000 000 000 261 366 336  
V-store at 05472 = 000 010 051 262 166 356                                     V10=B 0000 0000 5437 3336; V11=B 0000 4051 5447 3356;
V-store at 05473 = 000 000 061 262 073 237  
V-store at 05474 = 306 310 356 176 347 362                                     V12=B 0000 0061 5443 5637; V13=B 6154 4356 3756 3762;
V-store at 05475 = 166 232 263 271 374 256  
V-store at 05476 = 000 000 035 232 233 137                                     V14=B 3551 5263 5637 6256; V15=B 0000 0035 4651 5537;
V-store at 05477 = 261 366 336 162 232 146  
V-store at 05500 = 306 310 356 175 312 151                                     V16=B 5437 3336 3451 5146; V17=B 6154 4356 3734 5151;
V-store at 05501 = 025 010 002 001 250 000  
V-store at 05502 = 000 000 000 000 000 000                                     V18=B 0520 4002 0032 4000; V19=0;
V-store at 05503 = 000 000 002 001 004 264  
V-store at 05504 = 000 000 002 001 004 244                                     V20=B 2002 0226 4;         V21=B 2002 0224 4;
V-store at 05505 = 000 000 004 002 004 254  
V-store at 05506 = 000 000 000 271 373 156                                     V22=B 4004 0225 4;         V23=B 0000 0000 5637 5556;
V-store at 05507 = 000 000 000 000 000 000  
V-store at 05510 = 034 013 257 320 011 045                                     V24=0;                     V25=B 0700 5657 6400 4445;
V-store at 05511 = 216 310 162 226 100 000  
V-store at 05512 = 327 071 144 002 373 200                                     V26=B 4354 4162 4544 0000; V27=B 6563 4544 0057 5600;
V-store at 05513 = 000 012 157 272 253 356  
V-store at 05514 = 000 000 000 202 072 036                                     V28=B 0000 5157 5652 5756; V29=B 0000 0000 4043 5036;
V-store at 05515 = 261 366 336 162 072 033  
V-store at 05516 = 261 366 336 156 313 033                                     V30=B 5437 3336 3443 5033; V31=B 5437 3336 3354 5433;
V-store at 05517 = 306 310 356 175 273 054  
V-store at 05520 = 306 310 356 175 310 350                                     V32=B 6154 4356 3733 5454; V33=B 6154 4356 3734 4350;
V-store at 05521 = 000 000 000 002 026 352  
V-store at 05522 = 000 000 000 002 346 334                                     V34=B 0000 0000 0041 3352; V35=B 0000 0000 0056 3334;
V-store at 05523 = 216 213 237 261 330 233  
V-store at 05524 = 000 013 037 306 072 036                                     V36=B 4350 5637 5435 4233; V37=B 0000 5437 6143 5036;
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V-store at 05525 = 171 273 233 266 130 352  
V-store at 05526 = 000 000 000 266 130 352                                     V38=B 3633 5633 5545 4352; V39=B 0000 0000 5545 4352;
V-store at 05527 = 000 007 142 156 310 350  
V-store at 05530 = 001 330 233 262 233 356                                     V40=B 0000 3542 3354 4350; V41=B 0035 4233 5451 5756;
V-store at 05531 = 216 207 033 266 067 155  
V-store at 05532 = 246 373 234 156 330 335                                     V42=B 4350 3433 5543 3555; V43=B 5157 5634 3355 4335;
V-store at 05533 = 000 000 000 001 313 235  
V-store at 05534 = 000 000 000 001 373 261                                     V44=B 0000 0000 0034 5635; V45=B 0000 0000 0037 5661;
V-store at 05535 = 254 150 264 043 000 000  
V-store at 05536 = 000 000 010 004 004 254                                     V46=B 5306 4264 1060 0000; V47=B 1001 0022 54;
V-store at 05537 = 002 207 361 232 072 037  
V-store at 05540 = 000 000 055 251 267 137                                     V48=B0050 3761 4643 5037; V49=B 0000 0055 5233 3537;
                                                                       
 5541/0: 171 076|301 013 107|042|300 013 057|220 033 144                       Q3; =V24; DUP; V0; J1=; (if x=sign);
 5543/0: 300 013 060|201 033 171                                               V1; J4!=; (if x!=entier);
 5544/0: 164 115|164 261                                               1;      SHL38; SHL-40;
 5544/4: 304 003 324                                                   2;      SETB1724;
 5545/1: 041|065|300 276 367|164 301|200 331 050|300 276 367|170 076   3;      ZERO; REV; Y1M11; SHL-32; JSP42; Y1M11; =Q3;
 5547/4: 304 200 000|011|170 070|300 276 366|171 344|164 033|171 024|056
                                                                               SETB100000; OR; =C3; Y0M11; I14; SHL13; I1; +;
 5552/2: 171 076|164 341|164 041|011|042|301 276 367|041|200 331 246           Q3; SHL-16; SHL16; OR; DUP; =Y1M11; ZERO; JSP49;
 5554/5: 300 016 227|066|301 016 227|200 324 060|301 016 227|300 013 102|065|300 013 101|056
                                                                               YA3; CAB; =YA3; JSP3; =YA3; V19; REV; V18; +;
 5560/2: 042|164 061|164 261|170 270|300 276 366|200 331 223|052                       DUP; SHL24; SHL-40; =C11; Y0M11; JSP48; ERASE;
 5562/4: 304 000 012|200 330 115                                               SET10; JSP34;
 5563/4: 200 330 061|304 377 376|042|300 016 243|056|301 016 243|300 016 244|056|301 016 244
                                                                               JSP33; SET-2; DUP; YA15; +; =YA15; YA16; +; =YA16;
 5567/1: 041|301 013 102|300 013 107|170 076|200 360 000               23;     ZERO; =V19; V24; =Q3; EXIT1;
 5571/1: 300 013 061|205 033 173                                       4;      V2; J8!=; (if x!=abs);
 5572/1: 164 115                                                       5;      SHL38;
 5572/3: 164 261                                                       6;      SHL-40;
 5572/5: 304 003 304|201 273 145                                       7;      SETB1704; J3;
 5573/5: 300 013 062|204 033 175                                       8;      V3; J10!=; (if x!=sqrt);
 5574/5: 164 117|203 273 172                                           9;      SHL39; J6;
 5575/4: 300 013 063|221 033 172                                       10;     V4; J5=; (if x=sin);
 5576/4: 300 013 064|221 033 172                                               V5; J5=; (if x=cos);
 5577/4: 300 013 065|221 033 172                                               V6; J5=; (if x=ln);
 5600/4: 300 013 067|221 033 172                                               V8; J5=; (if x=arctan);
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 5601/4: 300 013 066|203 033 203                                               V7; J11!=; (if x!=exp);
 5602/4: 164 121|203 273 172                                                   SHL40; J6;
 5603/3: 052|300 013 071|204 033 205                                   11;     ERASE; V10; J12!=; (if x!=read);
 5604/4: 304 004 157|205 273 172                                               SETB2157; J7;
 5605/4: 300 013 072|204 033 207                                       12;     V11; J13!=; (if x!=format);
 5606/4: 304 014 356|204 273 144                                               SETB6356; J2;
 5607/4: 300 013 077|201 033 212                                       13;     V16; J14!=; (if x!=read boolean);
 5610/4: 304 004 231                                                           SETB2231;
 5611/1: 304 003 244|201 273 145                                       43;     SETB1644; J3;
 5612/1: 300 013 106|201 033 214                                       14;     V23; J24!=; (if x!=test);
 5613/1: 304 004 004|204 273 144                                               SETB2004; J2;
 5614/1: 300 013 070|204 033 216                                       24;     V9; J16!=; (if x!=open);
 5615/1: 304 004 372                                                           SETB2372;
 5615/4: 304 002 004|201 273 145                                       15;     SETB1004; J3;
 5616/4: 300 013 076|204 033 220                                       16;     V15; J17!=; (if x!=close);
 5617/4: 304 004 257|204 273 215                                               SETB2257; J15;
 5620/4: 300 013 074|200 033 224                                       17;     V13; J18!=; (if x!=write text);
 5621/4: 304 000 256                                                           SETB256;
 5622/1: 167 361|301 013 102|300 013 103|204 273 215                   28;     SHC-8; =V19; V20; J15;
 5624/0: 300 013 100|202 033 227                                       18;     V17; J19!=; (if x!=write boolean);
 5625/0: 304 000 001|167 361|301 013 102|300 013 104|204 273 215               SET1; SHC-8; =V19; V21; J15;
 5627/2: 300 013 073|204 033 232                                       19;     V12; J21!=; (if x!=write);
 5630/2: 304 250 013                                                           SETB124013;
 5630/5: 164 101|301 013 102|300 013 105|204 273 215                   20;     SHL32; =V19; V22; J15;
 5632/4: 300 013 075|200 033 243                                       21;     V14; J25!=; (if x!=copy text);
 5633/4: 304 264 053|205 273 230                                               SETB132053; J20;
 5634/4: 171 156|301 012 003|203 324 201                               22;     Q6; =V0P50; JS2P5; (print FAIL);
 5636/0: 300 013 110|301 006 137|300 013 111|301 006 140                       V25; =V53P29; V26; =V54P29;
 5640/0: 300 013 112|301 006 244|304 000 002|205 332 010                       V27; =V122P29; SET2; JS1P50;
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 5642/0: 301 016 256|201 273 167                                       	=YA26; J23;
 5643/0: 300 013 113|205 033 246                                       25;	V28; J26!=; (if x!=output);
 5644/0: 300 013 103|041|304 014 022|166 361|065|301 013 102|036|204 273 215
                                                                       	V20; ZERO; SETB6022; SHLD-8; REV; =V19; -; J15;
 5646/5: 300 013 114|205 033 250                                       26;	V29; J27!=; (if x!=find);
 5647/5: 304 000 017|201 273 222                                       	SETB17; J28;
 5650/5: 300 013 115|205 033 254                                       27;	V30; J30!=; (if x!=read binary);
 5651/5: 304 264 026                                                   	SETB132026;
 5652/2: 164 101|301 013 102|300 013 105|304 000 104|036|204 273 215   29;	SHL32; =V19; V22; SET68; -; J15;
 5654/5: 300 013 116|205 033 256                                       30;	V31; J31!=; (if x!=read array);
 5655/5: 304 264 034|202 273 252                                       	SETB132034; J29;
 5656/5: 300 013 120|205 033 260                                       31;	V33; J32!=; (if x!=write binary);
 5657/5: 304 264 036|202 273 252                                       	SETB132036; J29;
 5660/5: 300 013 117|205 033 263                                       32;	V32; J33!=; (if x!=write array);
 5661/5: 300 013 135|301 013 102|300 013 136|204 273 215               	V46; =V19; V47; J15;
 5663/5: 300 013 121|205 033 315                                       33;	V34; J47!=; (if x!=gap);
 5664/5: 304 000 047                                                   	SETB47;
 5665/2: 167 361|301 013 102|300 013 103|304 000 010|036|204 273 215   34;	SHC-8; =V19; V20; SETB10; -; J15;
 5667/5: 300 013 122|205 033 271                                       35;	V35; J36!=; (if x!=tab);
 5670/5: 304 000 007|202 273 265                                       	SETB07; J34;
 5671/5: 300 013 126|205 033 273                                       36;	V39; J37!=; (if x!=skip);
 5672/5: 304 000 066|202 273 265                                       	SETB66; J34;
 5673/5: 300 013 130|205 033 275                                       37;	V41; J38!=; (if x!=char out);
 5674/5: 304 000 071|202 273 265                                       	SETB71; J34;
 5675/5: 300 013 132|205 033 277                                       38;	V43; J39!=; (if x!=out basic symbol);
 5676/5: 304 000 073|202 273 265                                       	SETB73; J34;
 5677/5: 300 013 123|205 033 301                                       39;	V36; J40!=; (if x!=interchange);
 5700/5: 304 004 054|204 273 215                                       	SETB2054; J15;
 5701/5: 300 013 124|205 033 303                                       40;	V37; J41!=; (if x!=rewind);
 5702/5: 304 004 057|204 273 215                                       	SETB2057; J15;
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 5703/5: 300 013 125|205 033 305                                       41;	V38; J42!=; (if x!=data skip);
 5704/5: 304 004 065|204 273 215                                       	SETB2065; J15;
 5705/5: 300 013 133|205 033 307                                       42;	V44; J44!=; (if x!=btc);
 5706/5: 304 004 102|201 273 211                                       	SETB2102; J43;
 5707/5: 300 013 134|205 033 311                                       44;	V45; J45!=; (if x!=etw);
 5710/5: 304 004 104|201 273 211                                       	SETB2104; J43;
 5711/5: 300 013 127|205 033 313                                       45;	V40; J46!=; (if x!=char in);
 5712/5: 304 004 067|204 273 144                                       	SETB2067; J2;
 5713/5: 300 013 131|204 033 234                                       46;	V42; J22!=; (if x!=in basic symbol);
 5714/5: 304 004 070|204 273 144                                       	SETB2070; J2;
 5715/5: 300 013 137|205 033 317                                       47;	V48; J48!=; (if x!=newline);
 5716/5: 304 000 140|202 273 265                                       	SETB140; J34;
 5717/5: 300 013 140|205 033 267                                       48;	V49; J35!=; (if x!=space);
 5720/5: 304 000 137|202 273 265                                       	SETB137; J34;
                                                                       
=== Start P62V-1; at address 3026
 5722/0: 100 376|164 261|304 000 035|054|304 000 034|015|201 153 326|300 016 226|304 000 040|011|301 016 226
                                                                       P62;	M14M15; SHL-40; SETB35; AND; SETB34; NEV; J1!=Z; YA2; SETB40; OR; =YA2;
 5726/1: 304 000 001|200 330 276|304 000 002|200 330 171|100 376|042|164 261|304 000 114|224 033 342|304 000 224
                                                                       1;	SET1; JSP41; SET2; JSP37; M14M15; DUP; SHL-40; SET76; J5=; SET148;
 5732/3: 222 033 346|304 000 364|015|304 000 367|054|304 000 153|065|220 153 336
                                                                       	J6=; SETB364; NEV; SETB367; AND; SET107; REV; J3=Z;
 5735/3: 200 264 124                                                   2;	JP5;
 5736/0: 052|052                                                       3;	ERASE; ERASE;
 5736/2: 052|141 360|304 000 001|172 370|304 000 156|100 376           4;	ERASE; M-I15; SET1; =+C15; SET110; M14M15;
 5740/3: 164 261|304 000 013|036|203 153 335|052|200 360 000           	SHL-40; SET11; -; J2!=Z; ERASE; EXIT1;
 5742/4: 052|304 001 000|164 061|056|101 376|304 000 025|223 033 335|052|173 000|052|200 360 000
                                                                       5;	ERASE; SETB400; SHL24; +; =M14M15; SET21; J2=; ERASE; LINK; ERASE; EXIT1;
 5746/2: 052|042|167 367|304 000 160|065|223 053 335|052               6;	ERASE; DUP; SHC-5; SET112; REV; J2<Z; ERASE;
 5750/2: 304 000 050|065|164 341|042|304 037 377                       	SET40; REV; SHL-16; DUP; SETB17777;
 5752/0: 054|170 062|164 355|304 000 070|054|036|170 070|300 076 371|304 000 174|164 060|036|301 076 371|202 273 336
                                                                       	AND; =M3; SHL-10; SETB70; AND; -; =C3; Y3M3; SET124; SHLC3; -; =Y3M3; J4;
=== Start P63V-1; at address 3055
 5757/0: 164 033|065|164 041|164 301|056                               P63;	SHL13; REV; SHL16; SHL-32; +;
 5760/2: 042|225 113 362|027|033|304 000 300|164 021|056|202 273 360   1;	DUP; J2>Z; NEG; NOT; SETB300; SHL8; +; J1;
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 5762/5: 042|304 000 300|164 021|036|042|204 053 365|052|164 041|200 360 000
                                                                       2;      DUP; SETB300; SHL8;  -; DUP; J3>=Z; ERASE; SHL16; EXIT1;
 5765/4: 065|052|033|027|205 273 362                                   3;      REV; ERASE; NOT; NEG; J2;
                                                                       
=== Start P100V-1; at address 3063
                                                                       P100;   (TREE S.R.);
 5767/0: 173 000|056|174 000|200 360 000                                       LINK; +; =LINK; EXIT1;
=== Start P101V5; at address 3071
                                                                       P101V5;
                                                                               (EXTRA INFORMATION ROUTINE);
V-store at 05772 = 010 161 307 035 004 020                                     V1=B0207070707202020;
V-store at 05773 = 000 000 000 000 000 000                                     V2=0;
V-store at 05774 = 034 161 307 034 160 207                                     V3=B0707070707070207;
V-store at 05775 = 034 161 307 034 161 307                                     V4=B0707070707070707;
V-store at 05776 = 000 000 000 000 000 005                                     V5=5;
 5777/0: 171 076|301 013 371|300 000 000|304 000 100|054|201 154 003           Q3; =V0; E0; SETB100; AND; J3!=Z;
 6001/3: 041                                                                   ZERO;
 6001/4: 052                                                           1;      ERASE;
 6001/5: 300 013 371|170 076|200 360 000                               2;      V0; =Q3; EXIT1;
 6003/1: 042|200 334 117|300 014 115                                   3;      DUP; JSP127; V2P127;
 6004/2: 300 013 372|011|301 013 373|154 003|304 013 373|042|170 064           V1; OR; =V2; C0TOQ3; SETAV2; DUP; =I3;
 6006/5: 170 062|171 076|200 336 115|300 000 000|304 016 000|054|164 357
                                                                               =M3; Q3; JSP114; E0; SETB7000; AND; SHL-9;
 6011/3: 042|224 154 001|171 064|304 000 003|036|170 071                       DUP; J1=Z; I3; SET3; -; =RC3;
 6013/3: 300 010 056|042|202 154 015|052|300 016 260                           V4P33; DUP; J4!=Z; ERASE; YA28;
 6015/2: 302 076 371|200 334 077|225 154 065|304 000 005|301 013 376   4;      Y3M3Q; JSP125; J12=Z; SET5; =V5;
 6017/5: 171 070|202 054 015                                           10;     C3; J4>=Z;
 6020/4: 170 070|027                                                   11;     =C3; NEG;
 6021/1: 033|042|224 154 001|304 055 063|202 334 062|171 070|100 376           NOT; DUP; J1=Z; SETB26463; JS9; C3; M14M15;
 6023/4: 200 334 077|052|052|027|033|042|224 154 001|171 070|171 302|304 000 003|056|170 062
                                                                               JSP125; ERASE; ERASE; NEG; NOT; DUP; J1=Z; C3; M12; SET3; +; =M3;
 6027/1: 300 076 370|200 334 077|052|300 013 375|301 014 072|300 076 367|200 334 077
                                                                       5;      Y2M3; JSP125; ERASE; V4; =V1P125; Y1M3; JSP125;
 6032/2: 052|300 076 366|200 334 077|052|300 013 374|301 014 072               ERASE; Y0M3; JSP125; ERASE; V3; =V1P125;
 6034/4: 300 016 240|171 062|036|223 154 037|304 000 003|172 062|201 274 027
                                                                               YA12; M3; -; J6=Z; SET3; =+M3; J5;
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 6037/3: 052|027|033|042|224 154 001|171 362|042|170 070|170 062|300 016 260
                                                                       6;		ERASE; NEG; NOT; DUP; J1=Z; M15; DUP; =C3; =M3; YA28;
 6042/2: 242 074 045|100 076|200 334 077|052|143 060|171 070|170 062|202 274 042
                                                                       7;		J8C3Z; M14M3; JSP125; ERASE; DC3; C3; =M3; J7;
 6045/2: 170 070|027|033|042|224 154 001|304 054 366|202 334 062|171 070
                                                                       8;		=C3; NEG; NOT; DUP; J1=Z; SETB26366; JS9; C3;
 6050/0: 300 016 224|164 041|300 016 226|056|164 041|300 016 235|056   		YA0; SHL16; YA2; +; SHL16; YA9; +;
 6052/3: 200 334 077|052|300 016 240|164 041|300 016 236|056|164 041|300 016 237
                                                                       		JSP125; ERASE; YA12; SHL16; YA10; +; SHL16; YA11;
 6055/3: 056|200 334 077|052|300 016 227|200 334 077                   		+; JSP125; ERASE; YA3; JSP125;
 6057/2: 052|171 036|200 334 077|052|171 356|200 334 077|052|170 070   		ERASE; Q1; JSP125; ERASE; Q14; JSP125; ERASE; =C3;
 6061/5: 204 274 001                                                   		J1;
 6062/2: 164 075|301 013 373|304 013 373|042|170 064|170 062|171 076|200 336 115|200 360 000
                                                                       9;		SHL+30; =V2; SETAV2; DUP; =I3; =M3;Q3; JSP114; EXIT1;
 6065/5: 300 013 376|027|033|042|301 013 376|205 154 017|170 070|204 274 001
                                                                       12;		V5; NEG; NOT; DUP; =V5; J10!=Z; =C3; J1;
=== Start P125V5; at address 3135
                                                                       P125V5;		(syllabic octal routine);
V-store at 06071 = 101 004 036 101 004 036  
V-store at 06072 = 034 161 307 034 160 207                             		V0=B2020203620202036; V1=B0707070707070207;
V-store at 06073 = 000 000 000 000 000 000  
V-store at 06074 = 000 000 000 000 000 000  
V-store at 06075 = 000 000 000 000 000 000  
V-store at 06076 = 000 000 000 000 000 000                             		V2=0; V3=0; V4=0; V5=0;
 6077/0: 171 376|301 014 076|304 000 003|170 371|043                   		Q15; =V5; SET3; =RC15; DUPD;
 6100/5: 041|166 005|164 007|166 007|164 007|166 007|164 025|166 005   1;		ZERO; SHLD2; SHL3; SHLD3; SHL3; SHLD3; SHL10; SHLD2;
 6103/2: 164 007|166 007|164 007|166 007|164 015|300 014 071|011       		SHL3; SHLD3; SHL3; SHLD3; SHL6; V0; OR;
 6105/4: 303 374 073|265 374 100|052|170 370|304 014 072               		=V2M15Q; J1C15NZ; ERASE; =C15; SETAV1;
 6107/4: 170 364|304 014 075|170 362|171 376|200 336 115|300 014 076|170 376|200 360 000
                                                                       		=I15; SETAV4; =M15; Q15; JSP114; V5; =Q15; EXIT1;
=== Start P127V3; at address 3151
                                                                       P127V3;		(binary to integer routine);
V-store at 06113 = 101 004 020 101 004 020                             		V0=B 2020 2020 2020 2020;
 6117/0: 171 376|301 014 116|041|301 014 114|041|301 014 115           		Q15; =V3; ZERO; =V1; ZERO; =V2;
 6121/1: 042|205 054 122|304 003 347|200 264 124                       		DUP; J3>=Z; SET999; JP5;
 6122/5: 041|065|304 000 010|170 370                                   3;		ZERO; REV; SET8; =C15;
 6124/0: 304 000 012|044|066|056|167 365|065|042|143 360|225 154 130|260 374 124
                                                                       1;		SET10; DIVI; CAB; +; SHC-6; REV; DUP; DC15; J2=Z; J1C15NZ;
 6127/0: 065|300 014 113|056|301 014 115|205 274 122                   		REV; V0; +; =V2; J3;
 6130/5: 052|300 014 113|056|171 370|042|056|042|042|056|056|027|170 370|164 360
                                                                       2;		ERASE; V0; +; C15; DUP; +; DUP; DUP; +; +; NEG; =C15; SHLC15;
 6133/5: 300 014 115|205 154 135                                       		V2; J4!=Z;
 6134/5: 301 014 115|200 274 137                                       		=V2; J5;
 6135/5: 300 014 113|056|301 014 114                                   4;		V0; +; =V1;
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 6137/0: 300 014 116|170 376|200 360 000                               5;      V3; =Q15; EXIT1;
=== Start P113V75; at address 3245
V-store at 06147 = 017 017 017 017 017 017                             P113V75;        V6=B360741703607417;
V-store at 06176 = 034 054 351 267 133 041                                     V29=B0702635155655441;
V-store at 06177 = 322 120 200 277 135 034                                     V30=B6445020057656434;
V-store at 06200 = 034 052 156 303 135 034                                     V31=B0702515660656434;
V-store at 06221 = 000 000 014 201 014 220                                     V48=Q0/AV32/AV47;
V-store at 06223 = 000 044 052 054 062 066                                     V50=B2205213031066;
V-store at 06224 = 001 047 053 055 061 065                                     V51=B0022345313230465;
V-store at 06225 = 000 000 260 230 015 100                                     V52=B0000026046006500;
V-store at 06227 = 312 315 043 364 000 000                                     V54=B6254644375000000;
V-store at 06236 = 010 171 241 246 300 021                                     V61=B0207464151540021;
 6255/0: 304 377 377|301 014 254|202 335 234                           100;    SET-1; =V75; JS12;
 6256/3: 173 000|301 014 142|300 014 176|301 014 201                           LINK; =V1; V29; =V32;
 6260/2: 304 140 000|205 335 212                                               SETB60000; JS4;
 6261/2: 301 014 142|300 014 177|301 014 202                                   =V1; V30; =V33;
 6262/5: 300 014 221|170 376|131 360|203 335 373|205 274 262           154;    V48; =Q15; TWEQ15; JS150; J154;
 6265/0: 300 014 203|200 335 342|301 014 175                                   V34; JS69; =V28;
 6266/3: 300 000 002|164 015|304 000 003|166 365|052                   173;    E2; SHL+6; SETB03; SHLD-6; ERASE;
 6270/2: 301 014 201|300 000 003|301 014 202|300 000 007|301 014 204           =V32; E3; =V33; E7; =V35;
 6272/5: 041|301 014 203|304 000 002|301 014 205|304 014 201                   ZERO; =V34; SETB02; =V36; SETAV32;
 6275/0: 170 365|304 014 205|170 362|300 014 175|170 370                       =RI15; SETAV36; =M15; V28; =C15;
 6277/0: 130 360|203 335 373|203 274 266                                       PWQ15; JS150; J173;
 6300/2: 300 014 200|301 014 201                                               V31; =V32;
 6301/2: 300 014 221|170 376|131 360                                   153;    V48; =Q15; TWEQ15;
 6302/3: 203 335 373|202 274 301|300 014 202|164 007|164 247|304 000 005|200 220 000
                                                                               JS150; J153; V33; SHL+3; SHL-45; SET5; OUT;
 6305/4: 301 014 174                                                           =V27;
 6306/1: 041|301 014 234                                               70;     ZERO; =V59;
 6306/5: 041|301 014 222|201 335 313                                            ZERO; =V49; JS92;
 6310/0: 041                                                           42;     ZERO;
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 6310/1: 052                                                           43;     ERASE;
 6310/2: 202 335 265|201 274 310|202 274 312|201 274 310               158;    JS35; J43; J44; J43;
 6312/2: 304 000 004|054|164 053|041                                   44;     SETB4; AND; SHL+21; ZERO;
 6313/3: 041                                                           46;     ZERO;
 6313/4: 052                                                           45;     ERASE;
 6313/5: 202 335 265|202 274 316|203 274 323|011                       157;    JS35; J47; J49; OR;
 6315/3: 164 007|205 274 313                                                   SHL+3; J157;
 6316/2: 012|164 373|304 037 377|054                                   47;     PERM; SHL-3; SETB17777; AND;
 6317/3: 011|065|304 000 017|204 034 326                                       OR; REV; SETB17; J50!=;
 6320/5: 052                                                                   ERASE;
 6321/0: 202 335 265|204 274 326|203 274 323|164 033|011               48;     JS35; J50; J49; SHL+13; OR;
 6323/0: 200 274 321                                                           J48;
 6323/3: 042|164 127|164 247                                           49;     DUP; SHL+43; SHL-45;
 6324/2: 065|167 377|224 054 325                                               REV; SHC-1; J51<Z;
 6325/2: 164 011                                                               SHL+4;
 6325/4: 164 041|011|200 274 321                                       51;     SHL+16; OR; J48;
 6326/4: 304 000 035|036|201 154 310                                   50;     SETB35; -; J43!=Z;
 6327/5: 300 014 234|170 343                                                   V59; =RM14;
 6330/4: 303 354 242|171 342|301 014 234|202 274 310                           =V65M14Q; M14; =V59; J158;
 6332/3: 052|304 000 003|301 014 141|203 274 335                       52;     ERASE; SET3; =V0; J60;
 6334/1: 017|017|017|017|017|202 334 357                               *58;    JS59;
 6335/3: 304 014 335|170 362|100 360|301 014 231                       60;     SETAR58; =M15; M0M15; =V56;
 6337/1: 300 014 234|170 351                                                   V59; =RC14;
 6340/0: 201 274 346                                                           J57;
 6340/3: 041|300 354 242|042|164 101|164 301                           99;     ZERO; V65M14; DUP; SHL+32; SHL-32;
 6342/0: 300 014 231|201 335 262|164 021|201 335 262|164 041                   V56; JS56; SHL+8; JS56; SHL+16;
 6344/1: 201 335 262|052|052|065|164 061                                       JS56; ERASE; ERASE; REV; SHL+24;
 6345/3: 011                                                                   OR;
 6345/4: 303 354 242                                                           =V65M14Q;
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 6346/1: 263 354 340                                                   57;		J99C14NZ;
 6346/4: 300 014 234|170 351|204 274 352                               73;		V59; =RC14; J72;
 6350/0: 302 354 242|042|164 101|164 301|300 014 142                   71;		V65M14Q; DUP; SHL+32; SHL-32; V1;
 6351/5: 015|223 155 120                                               		NEV; J76=Z;
 6352/3: 052                                                           		ERASE;
 6352/4: 260 354 350                                                   72;		J71C14NZ;
 6353/1: 300 014 222|300 014 141|304 000 003|036|011                   91;		V49; V0; SET3; -; OR;
 6355/0: 201 154 361                                                   		J74!=Z;
 6355/3: 300 014 142|174 000|201 335 250|202 360 000                   		V1; =LINK; JS13; EXIT;
 6357/2: 202 335 234|173 000|301 014 142                               59;		JS12; LINK; =V1;
 6360/4: 204 274 346                                                   		J73;
 6361/1: 300 014 142|301 014 235|204 335 201                           74; 140;		V1; =V60; JS141;
 6362/4: 042|042|301 014 150|041|301 014 230                           		DUP; DUP; =V7; ZERO; =V55;
 6364/1: 164 365|042|221 154 375                                       		SHL-6; DUP; J15=Z;
 6365/1: 201 335 222                                                   		JS8;
 6365/4: 042|203 155 004                                               		DUP; J17!=Z;
 6366/2: 052|042|164 361|304 000 177|015                               		ERASE; DUP; SHL-8; SETB177; NEV;
 6367/4: 202 154 375                                                   		J159!=Z;
 6370/1: 041|033|301 014 230|304 277 377|205 335 212                   		ZERO; NOT; =V55; SETB137777; JS4;
 6372/0: 164 107|164 273|301 014 145|304 061 000|056                   		SHL+35; SHL-35; =V4; SETB30400; +;
 6373/5: 164 021|204 335 017                                           		SHL+8; JS18;
 6374/4: 065|052                                                       		REV; ERASE;
 6375/0: 041                                                           14;		ZERO;
 6375/1: 052                                                           15;		ERASE;
 6375/2: 300 014 147|065                                               159;	V6; REV;
 6376/0: 166 361|041|200 034 376                                       16;		SHLD-8; ZERO; J16!=;
 6377/0: 052|304 015 002|170 362|042|101 360                           		ERASE; SETAR10; =M15; DUP; =M0M15;
 6400/3: 101 360|201 335 250                                           		=M0M15; JS13;
 6401/2: 017|017|017|017|017                                           *10;	DUMMY;
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 6402/1: 017|017|017|017|017|202 335 234|304 000 056|200 275 035       *11;    JS12; SETB56; J21;
 6404/3: 201 335 222                                                   17;     JS8;
 6405/0: 200 154 375                                                           J14!=Z;
 6405/3: 041|033|301 014 230                                                   ZERO; NOT; =V55;
 6406/2: 042|164 351|304 010 011|221 034 375                                   DUP; SHL-12; SETB4011; J15=;
 6407/5: 304 010 017|221 035 025                                               SETB4017; J19=;
 6410/5: 304 010 057|221 035 025                                               SETB4057; J19=;
 6411/5: 304 017 217|054|304 010 015|015|204 155 015                           SETB7617; AND; SETB4015; NEV; J162!=Z;
 6413/4: 304 240 000|205 335 212                                               SETB120000; JS4;
 6414/4: 174 000|304 140 000|015                                               =LINK; SETB60000; NEV;
 6415/4: 204 335 017|065|164 301|301 014 145|202 274 375               162;    JS18; REV; SHL-32; =V4; J159;
 6417/4: 041|065|166 351|167 363|166 377                               18;     ZERO; REV; SHLD-12; SHC-7; SHLD-1;
 6421/0: 167 011|166 373                                                       SHC+4; SHLD-3;
 6421/4: 304 015 033|164 101|065|166 007|167 371                               SETAR9; SHL+32; REV; SHLD+3; SHC-4;
 6423/2: 166 003|167 017|166 031|065|052|200 360 000                           SHLD+1; SHC+7; SHLD+12; REV; ERASE; EXIT1;
 6425/1: 041|066                                                       19;     ZERO; CAB;
 6425/3: 166 351|164 363|166 377|052|164 273                                   SHLD-12; SHL-7; SHLD-1; ERASE; SHL-35;
 6427/0: 065|167 365|224 055 030                                               REV; SHC-6; J20<Z;
 6430/0: 304 140 000|011                                                       SETB60000; OR;
 6430/4: 173 000|301 014 142                                           20;     LINK; = V1;
 6431/3: 205 335 212|301 014 145|203 275 033                                   JS4; =V4; J93;
 6433/0: 202 335 234                                                   *9;     JS12;
 6433/3: 300 014 145                                                   93;     V4;
 6434/0: 301 014 142|304 000 052                                               =V1; SETB52;
 6435/0: 164 031|300 014 240|200 055 037                               21;     SHL+12; V63; J96>=Z;
 6436/2: 304 015 000|011                                                       SETB6400; OR;
 6437/0: 300 014 241|204 055 040                                       96;     V64; J97>=Z;
 6440/0: 304 000 066|011                                                       SETB66; OR;
 6440/4: 164 075|042|300 014 152|066|301 014 152                       97;     SHL+30; DUP; V9; CAB; =V9;
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 6442/2: 015|164 031                                                           NEV; SHL+12;
 6442/5: 041|300 014 150                                                       ZERO; V7;
 6443/3: 166 361|041|203 035 043                                       98;     SHLD-8; ZERO; J98!=;
 6444/3: 052|301 014 150                                                       ERASE; =V7;
 6445/1: 300 014 222|221 155 051                                               V49; J133=Z;
 6446/1: 300 014 146|167 373|225 055 051                                       V5; SHC-3; J120<Z;
 6447/3: 300 014 230|205 155 051                                               V55; J120!=Z;
 6450/3: 042|205 155 051                                                       DUP; J120!=Z;
 6451/1: 052|204 274 346                                               133;    ERASE; J73;
 6451/5: 052|304 014 201|161 003|170 363|300 014 235|042               120;    ERASE; SETAV32; SHA+1; =RM15; V60; DUP;
 6453/5: 164 107|164 375|304 000 005|200 335 225                               SHL+35; SHL-2; SET5; JS22;
 6455/3: 164 031|065|164 101|164 247|304 003 320                               SHL+12; REV; SHL+32; SHL-45; SETB1720;
 6457/1: 011|011|042|107 360|164 061                                           OR; OR; DUP; =M0M15QH; SHL+24;
 6460/2: 107 360|041|107 360|300 014 150|042                                   =M0M15QH; ZERO; =M0M15QH; V7; DUP;
 6461/5: 164 245|205 335 230                                                   SHL-46; JS24;
 6462/4: 042|220 155 066                                                       DUP; J121=Z;
 6463/2: 027|033|205 335 230                                                   NEG; NOT; JS24;
 6464/1: 042|223 155 066                                                       DUP; J122=Z;
 6464/5: 205 335 230                                                           JS24;
 6465/2: 052|205 275 066                                                       ERASE; J123;
 6466/0: 107 360|041                                                   121;    =M0M15QH; ZERO;
 6466/3: 107 360                                                       122;    =M0M15QH;
 6466/5: 052|300 014 152|107 360                                       123;    ERASE; V9; =M0M15QH;
 6467/5: 300 014 153|304 000 004|043|036|225 055 071                           V10; SET4; DUPD; -; J124<Z;
 6471/4: 065                                                                   REV;
 6471/5: 052|170 351                                                   124;    ERASE; =RC14;
 6472/2: 260 355 074                                                           J138C14NZ;
 6472/5: 041|200 275 107                                               130;    ZERO; J127;
 6473/3: 041|107 360                                                   125;    ZERO; =M0M15QH;
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 6474/0: 302 354 154|042|304 000 010|200 335 225                       138;    V11M14Q; DUP; SET8; JS22;
 6475/4: 042|107 360|164 061|107 360|164 061                                   DUP; =M0M15QH; SHL+24; =M0M15QH; SHL+24;
 6477/1: 304 000 010|200 335 225|042|107 360|164 061                           SET8; JS22; DUP; =M0M15QH; SHL+24;
 6501/0: 107 360|263 355 073                                                   =M0M15QH; J125C14NZ;
 6501/5: 171 342|304 000 004|036|205 155 072                           126;    M14; SET4; -; J130!=Z;
 6503/2: 041|107 360                                                           ZERO; =M0M15QH;
 6503/5: 300 014 153|304 000 012|036|042|202 055 117                   137;    V10; SET10; -; DUP; J129>=Z;
 6505/4: 052|300 014 153|304 000 020|011                                       ERASE; V10;SETB20; OR;
 6507/0: 164 031|304 000 002|011|164 061|107 360                       127;    SHL+12; SETB2; OR; SHL+24; =M0M15QH;
 6510/4: 171 362|167 377|203 055 112                                           M15; SHC-1; J128>=Z;
 6511/5: 041|033|107 360                                                       ZERO; NOT; =M0M15QH;
 6512/3: 171 362|164 377|170 363|141 360|304 014 201                   128;    M15; SHL-1; =RM15; M-I15; SETAV32;
 6514/2: 170 364|300 014 175|170 370|130 360|203 335 373                       =I15; V28; =C15; PWQ15; JS150;
 6516/2: 205 275 051|204 274 346                                               J120; J73;
 6517/2: 304 004 120|011|200 275 107                                   129;    SETB2120; OR; J127;
 6520/3: 042|042|301 014 143                                           76;     DUP; DUP; =V2;
 6521/2: 164 061|200 055 124                                                   SHL+24; J79>=Z;
 6522/1: 141 340|201 335 320|304 160 264|203 275 124                           M-I14; JS78; SETB70264; J80;
 6524/0: 304 160 260                                                   79;     SETB70260;
 6524/3: 164 075|065|042|164 107|164 375                               80;     SHL+30; REV; DUP; SHL+35; SHL-2;
 6525/5: 304 000 005|200 335 225|066|011|301 014 201                           SET5; JS22; CAB; OR; =V32;
 6527/4: 042|164 101|164 247|304 003 320|011                                   DUP; SHL+32; SHL-45; SETB1720; OR;
 6531/1: 164 015|065|042|164 063|164 247                                       SHL+6; REV; DUP; SHL+25; SHL-45;
 6532/3: 042                                                                   DUP;
 6532/4: 200 155 135                                                           J81!=Z;
 6533/1: 052|052|304 000 034|011|164 075                                       ERASE; ERASE; SETB34; OR; SHL+30;
 6534/3: 201 275 144                                                           J82;
 6535/0: 164 007|170 370|300 014 223|164 360|164 261                   81;     SHL+3; =C15; V50; SHLC15; SHL-40;
 6536/5: 066|164 015|011|065|164 073                                           CAB; SHL+6; OR; REV; SHL+29;
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 6540/0: 164 247|164 007|170 370|300 014 224|164 360                           SHL-45; SHL+3; =C15; V51; SHLC15;
 6541/5: 164 261|065|164 015|011|164 015|304 000 075                           SHL-40; REV; SHL+6; OR; SHL+6; SETB75;
 6543/4: 011|164 031                                                           OR; SHL+12;
 6544/1: 301 014 202                                                   82;     =V33;
 6544/4: 300 014 221|170 376|171 364|033|027|170 362                   152;    V48; =Q15; I15; NOT; NEG; =M15;
 6546/3: 300 014 202|164 031|164 255|304 000 034|015|201 155 152               V33; SHL +12; SHL -42; SET B34; NEV; J174!=Z;
 6550/5: 131 360                                                               TWEQ15;
 6551/1: 203 335 373|204 275 144                                               JS150; J152;
 6552/1: 300 014 175                                                   174;    V28;
 6552/4: 170 370|304 000 002|300 014 202|164 365|164 015|011|301 014 202
                                                                               =C15; SETB2; V33; SHL-6; SHL+6; OR; =V33;
 6555/2: 300 014 201|164 031|164 351|301 014 201|130 360|203 335 373|204 275 144|300 014 202
                                                                               V32; SHL+12; SHL-12; =V32; PWQ15; JS150; J152; V33;
 6560/5: 164 335|164 111|041|166 015|065                                       SHL-18; SHL+36; ZERO; SHLD+6; REV;
 6562/1: 164 255|042|167 377|204 055 163                                       SHL-42; DUP; SHC-1; J83>=Z;
 6563/3: 065                                                                   REV;
 6563/4: 301 014 146|042                                               83;     =V5; DUP;
 6564/2: 202 155 341                                                           J84!=Z;
 6564/5: 052                                                                   ERASE;
 6565/0: 300 014 146|304 000 066|205 035 167                           85;     V5; SETB66; J87!=;
 6566/3: 052|203 255 166|041|200 220 000                               86;     ERASE; J86NEN; ZERO; OUT;
 6567/5: 304 000 054|204 035 175                                       87;     SETB54; J90!=;
 6570/5: 300 014 234|170 351|203 275 174                                       V59; =RC14; J89;
 6572/1: 302 354 242|042|223 155 174|141 340|201 335 320               88;     V65M14Q; DUP; J89=Z;M-I14; JS78;
 6574/1: 140 340                                                               M+I14;
 6574/3: 052|261 355 172                                               89;     ERASE; J88C14NZ;
 6575/1: 201 274 306                                                           J70;
 6575/4: 304 000 044|220 035 200                                       90;     SETB44; J134=;
 6576/4: 304 000 052|220 035 200                                               SETB52; J134=;
 6577/4: 052|041                                                               ERASE; ZERO;
 6600/0: 301 014 222|041|301 014 141|201 274 353                       134;    =V49; ZERO; =V0; J91;
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 6601/4: 300 014 141|304 000 003|221 035 205                           141;	V0; SET3; J2=;
 6603/1: 042|033|027|301 014 141                                       		DUP; NOT; NEG; =V0;
 6604/1: 304 014 143|205 275 206                                       		SETAV2; J3;
 6605/1: 052|300 014 142|041|166 107|065                               2;		ERASE; V1; ZERO; SHLD+35; REV;
 6606/3: 164 273                                                       		SHL-35;
 6606/5: 170 362|164 007|170 370                                       3;		=M15; SHL+3; =C15;
 6607/5: 100 360|164 360|164 261                                       		M0M15; SHLC15; SHL-40;
 6610/5: 304 040 000|205 335 212|301 014 142|200 360 000               		SETB20000; JS4; =V1; EXIT1;
 6612/5: 300 014 142|056|042|041|166 107|066|304 000 006               4;		V1; +; DUP; ZERO; SHLD+35; CAB; SET6;
 6614/5: 065|205 055 216                                               		REV; J5>=Z;
 6615/3: 056|166 033|027|033|203 275 220                               		+; SHLD+13; NEG; NOT;J6;
 6616/5: 043|036|220 055 221                                           5;		DUPD; -; J7<Z;
 6617/4: 036|166 033|033|027                                           		-; SHLD+13; NOT; NEG;
 6620/3: 166 347|041                                                   6;		SHLD-13; ZERO;
 6621/0: 052|166 273|052                                               7;		ERASE; SHLD-35; ERASE;
 6621/4: 200 360 000                                                   		EXIT1;
 6622/1: 204 335 201|066|164 021|011|042                               8;		JS141; CAB; SHL+8; OR; DUP;
 6623/3: 301 014 150|065|027|033|200 360 000                           		=V7; REV; NEG; NOT; EXIT1;
 6625/0: 170 370|041                                                   22;		=C15; ZERO;
 6625/3: 017|017|017|164 007|304 000 002|011|166 007|143 360           *23;	SHL+3; SETB2; OR; SHLD+3; DC15;
 6627/4: 177 360                                                       		J23C15NZS;
 6630/0: 065|052|200 360 000                                           		REV; ERASE; EXIT1;
 6630/5: 065|042|164 021|065|164 377|304 000 003                       24;		REV; DUP; SHL+8; REV; SHL-1; SET3;
 6632/3: 200 335 225|164 075|107 360|065                               		JS22; SHL+30; =M0M15QH; REV;
 6633/5: 200 360 000                                                   		EXIT1;
 6634/2: 224 255 241                                                   12;		J63EN;
 6634/5: 301 014 154|171 376|301 014 144|304 000 017|170 371           		=V11; Q15; =V3; SET15; =RC15;
 6637/0: 223 255 240                                                   61;		J62EN;
 6637/3: 303 374 155|260 375 237                                       		=V12M15Q; J61C15NZ;
                                                                       		
                                                                       [ good80.txt 
                                                                       [ -- Brian W
                                                                       
 6640/3: 171 362|033|027|204 275 242                                   62;		M15; NOT; NEG; J64;
 6641/4: 171 376|301 014 144|041                                       63;		Q15; =V3; ZERO;
 6642/4: 301 014 153|171 356|301 014 237|041                           64;		=V10; Q14; =V62; ZERO;
 6644/1: 221 215 245|202 275 245                                       		J75V; J94;
 6645/1: 033                                                           75;		NOT;
 6645/2: 301 014 241                                                   94;		=V64; (OVERFLOW);
 6645/5: 041                                                           		ZERO;
 6646/0: 220 355 247|201 275 247                                       		J95TR; J108;
 6647/0: 033                                                           95;		NOT;
 6647/1: 301 014 240                                                   108;	=V63; (TEST REGISTER);
 6647/4: 200 360 000                                                   		EXIT1;
 6650/1: 300 014 153|042|223 155 254                                   13;		V10; DUP; J67=Z;
 6651/2: 027|033|042|170 370|170 362                                   		NEG; NOT; DUP; =C15; =M15;
 6652/3: 145 360|205 275 253                                           		I15=-1; J66;
 6653/2: 302 374 154                                                   65;		V11M15Q;
 6653/5: 262 375 253                                                   66;		J65C15NZ;
 6654/2: 041                                                           		ZERO;
 6654/3: 052|300 014 237|170 356|300 014 144|170 376                   67;		ERASE; V62; =Q14; V3; =Q15;
 6656/2: 300 014 240|002                                               		V63; =TR; (restore test register);
 6657/0: 001|300 014 241|161 141|052                                   		VR; V64; SHA+48; ERASE; (restore overflow);
 6660/1: 300 014 153|224 155 261                                       		V10; J68=Z;
 6661/1: 300 014 154                                                   		V11;
 6661/4: 200 360 000                                                   68;		EXIT1;
 6662/1: 164 261|202 335 327|051|012|164 021                           56;		SHL-40; JS53; REVD; PERM; SHL+8;
 6663/4: 011|012|065|300 014 231|200 360 000                           		OR; PERM; REV; V56; EXIT1;
 6665/1: 052                                                           41;		ERASE;
 6665/2: 300 014 232|300 014 233                                       35;		V57; V58;
 6666/2: 170 350|264 355 276                                           		=C14; J37C14NZ;
 6667/1: 300 014 231                                                   		V56;
                                                                       		
                                                                       [ good81.txt 
                                                                       [ -- Roderick McL
                                                                       
 6667/4: 170 376|262 375 274                                           	=Q15; J36C15NZ;
 6670/3: 300 014 221|170 376|300 014 174|170 370|125 360|203 335 373|203 275 270
                                                                       155;	V48; =Q15; V27; =C15; PREQ15; JS150; J155;
 6673/3: 304 000 020|170 371                                           	SET16; =RC15;
 6674/2: 052|302 374 201|171 376|301 014 231|304 000 010               36;	ERASE; V32M15Q; Q15; =V56; SET8;
 6676/2: 170 350                                                       	=C14;
 6676/4: 041|166 015                                                   37;	ZERO; SHLD+6;
 6677/1: 143 340|171 350|301 014 233                                   	DC14; C14; =V58;
 6700/2: 065|301 014 232|304 000 017|220 035 316                       	REV; =V57; SETB17; J38=;
 6702/0: 042|304 000 020|036|221 055 265                               	DUP; SETB20; -; J41<Z;
 6703/2: 042|304 000 032|036|220 055 317                               	DUP; SETB32; -; J40<Z;
 6704/4: 042|304 000 040|036|220 055 316                               	DUP; SETB40; -; J38<Z;
 6706/0: 042|304 000 041|036|221 055 265                               	DUP; SETB41; -; J41<Z;
 6707/2: 042|304 000 073|036|223 055 316                               	DUP; SETB73; -; J39<Z;
 6710/4: 304 000 075|201 035 265                                       	SETB75; J41!=;
 6711/4: 201 335 313|173 000|052|203 274 332                           	JS92; LINK; ERASE; J52;
 6713/1: 300 014 174|170 371|140 360|120 361                           92;	V27; =RC15; M+I15; MANUALQ15;
 6714/4: 041|301 014 233|041|301 014 231                               	ZERO; =V58; ZERO; =V56;
 6716/0: 200 360 000                                                   38;	EXIT1;
 6716/3: 202 360 001                                                   39;	EXIT2;
 6717/0: 304 000 020|036|200 360 001                                   40;	SETB20; -; EXIT3;
 6720/1: 042|164 101|164 301|065|042                                   78;	DUP; SHL+32; SHL-32; REV; DUP;
 6721/2: 201 335 325|164 021|201 335 325|164 041|201 335 325           	JS77; SHL+8; JS77; SHL+16; JS77;
 6723/3: 012|052|052|041                                               	PERM; ERASE; ERASE; ZERO;
 6724/1: 301 354 242|200 360 000                                       	=V65M14; EXIT1;
 6725/1: 164 261|066|065|202 335 327|052                               77;	SHL-40; CAB; REV; JS53; ERASE;
 6726/3: 065|042|200 360 000                                           	REV; DUP; EXIT1;
 6727/2: 065|042|042|164 347|304 000 005                               53; 	REV; DUP; DUP; SHL-13; SET5;
 6730/4: 036|205 155 332                                               	-; J54!=Z;
 6731/2: 164 107|164 273|033|027|203 275 333                           	SHL+35; SHL-35; NOT; NEG; J55;
                                                                       [ good82.txt 
                                                                       [ -- Roderick McL
                                                                       
 6732/5: 304 040 000|056                                               54;	SETB20000; +;
 6733/3: 012|042|164 347|164 007|170 370                               55;	PERM; DUP; SHL-13; SHL+3; =C15;
 6734/5: 164 107|164 273|170 362|100 360                               	SHL+35; SHL-35; =M15; M0M15;
 6736/1: 167 360|041|166 021|012|065                                   	SHCC15; ZERO; SHLD+8; PERM; REV;
 6737/2: 166 361|052|142 360|167 360                                   	SHLD-8; ERASE; NC15; SHCC15;
 6740/3: 101 360|200 360 000                                           	=M0M15; EXIT1;
 6741/2: 052|200 275 165                                               84;	ERASE; J85;
 6742/0: 164 255|304 000 020|036|042|304 000 005|200 220 000           69;	SHL-42; SETB20; -; DUP; SET5; OUT;
 6744/1: 065|164 125|011|200 360 000                                   	REV; SHL+42; OR; EXIT1;
 6745/2: 041|170 343|300 014 154|304 000 005|221 035 361               	ZERO; =RM14; V11; SET5; J161=;
 6747/2: 304 000 006|036|203 155 354                                   	SET6; -; J163!=Z;
 6750/3: 300 014 155|164 061|300 354 174|164 061|220 035 356           	V12; SHL+24; V27M14; SHL+24; J160=;
 6752/4: 140 340|300 354 174|164 061|220 035 356                       	M+I14; V27M14; SHL+24; J160=;
 6754/2: 052                                                           172;	ERASE;
 6754/3: 201 335 250                                                   163;	JS13;
 6755/0: 200 220 000|200 360 000                                       	OUT; EXIT1;
 6756/0: 052|300 354 174|164 005|164 375|301 354 174                   160;	ERASE; V27M14; SHL+2; SHL-2; =V27M14;
 6757/5: 201 335 250|052                                               	JS13; ERASE;
 6760/3: 052|200 360 000                                               	ERASE; EXIT1;
 6761/1: 052|300 014 155|300 354 174|164 007|164 313                   161;	ERASE; V12; V27M14; SHL+3; SHL-27;
 6763/0: 223 035 365                                                   	J164=;
 6763/3: 140 340|300 354 174|164 007|164 313|202 035 354               	M+I14; V27M14; SHL+3; SHL-27; J172!=;
 6765/3: 052|300 354 174|164 003|223 055 354                           164;	ERASE; V27M14; SHL+1; J163<Z;
 6767/0: 300 354 174|041|033|027|167 375                               	V27M14; ZERO; NOT; NEG; SHC-2;
 6770/2: 011|042|301 354 174|164 061|164 321                           	OR; DUP; =V27M14; SHL+24; SHL-24;
 6771/5: 301 014 155|201 335 250                                       	=V12; JS13;
 6772/5: 052|200 360 000                                               	ERASE; EXIT1;
 6773/3: 121 360|205 356 002                                           150; 	PARQ15; J151NTR;
 6774/2: 120 361|171 370|304 000 020|011|167 365                       	MANUALQ15; C15; SETB20; OR; SHC-6; 
                                                                       
                                                                       [ good83.txt 
                                                                       [ -- Roderick McL + Brian W
                                                                       
 6776/0: 300 014 225|166 031|301 014 226|052                           	V52; SHLD+12; =V53; ERASE;
 6777/3: 304 014 226|170 364|304 014 227|170 362|154 017               	SETAV53; =I15; SETAV54; =M15; C0TOQ15;
 7001/3: 131 360|203 335 373|200 360 000                               	TWEQ15; JS150; EXIT1;
 7002/5: 202 360 001                                                   151;	EXIT2;
=== Start P114V72; at address 3661
                                                                       	P114V72;	(OUT 8);
                                                                       	(1 param-q str in normal output format);
 7115/0: 171 376|301 016 004|171 356|301 016 005|171 336|301 016 006   	Q15; =V0; Q14; =V1; Q13; =V2;
 7117/3: 170 376|157 376|141 340|171 342|033|027|042|042               	=Q15; Q15TOQ14; M-I14; M14; NOT; NEG; DUP; DUP;
 7121/3: 170 351|170 331|171 364|170 342|304 016 054|042|170 322       	=RC14; =RC13; I15; =M14; SETAV40; DUP; =M13;
 7123/5: 102 340|103 320|265 336 123                                   20;	M0M14Q; =M0M13Q; J20C13NZ;
 7125/0: 170 343|170 350|041|301 016 012|300 016 010|200 156 137       	=RM14; =C14; ZERO; =V6; V4; J11!=Z;
 7127/2: 171 370|304 000 005|036|201 156 132|300 016 011|170 323|202 276 143
                                                                       	C15; SET5; -; J16!=Z; V5; =RM13; J1;
 7132/1: 171 376|171 356|171 336|304 000 005|170 370|300 016 011|170 323|204 336 206
                                                                       16; 	Q15; Q14; Q13; SET5; =C15; V5; =RM13; JS8;
 7135/2: 041|301 016 012|170 336|170 356|170 376                       	ZERO; =V6; =Q13; =Q14; =Q15;
 7137/0: 041|301 016 010|304 016 013|170 323|171 370|304 000 003|220 036 211
                                                                       11;	ZERO; =V4; SETAV7; =RM13; C15; SET3; J9=;
 7141/5: 202 056 143|304 377 377|301 016 007                           	J1>=Z; SET-1; =V3;
 7143/2: 304 000 010|170 330|304 377 377|102 340|041                   1;	SET8; =C13; SET-1; M0M14Q; ZERO;
 7145/1: 243 336 170|166 015|143 320                                   2;	J5C13Z; SHLD+6; DC13;
 7146/2: 304 000 002|225 036 152|041|222 036 151|042|304 000 007|036|202 116 167
                                                                       	SETB02; J4=; ZERO; J3=; DUP; SETB07; -; J12<=Z;
 7151/2: 164 125|066|166 015|012|201 276 145                           3;	SHL+42; CAB; SHLD+6; PERM; J2;
 7152/5: 304 377 377|301 016 010|171 370|304 000 005|036|202 156 167   4;	SET-1; =V4; C15; SET5; -; J12!=Z;
 7155/2: 052                                                           	ERASE;
 7155/3: 065|103 320|304 000 007|171 330|036|170 330|304 000 077       17;	REV; =M0M13Q; SET7; C13; -; =C13; SETB77;
 7157/5: 241 336 162|164 015|304 000 077|011|143 320|205 276 157       18;	J19C13Z; SHL+6; SETB77; OR; DC13; J18;
 7162/1: 164 365|011|141 340|101 340|171 350|033|027|170 350           19;	SHL-6; OR; M-I14; =M0M14; C14; NOT; NEG; =C14;
 7164/2: 171 376|171 356|171 336|204 336 206|170 336|170 356|170 376|200 276 137
                                                                       	Q15; Q14; Q13; JS8; =Q13; =Q14; =Q15; J11;
 7167/2: 052|304 000 077|202 276 151                                   12;	ERASE; SETB77; J3;
 7170/3: 066|103 320|052|052|242 356 172|202 276 143                   5;	CAB; =M0M13Q; ERASE; ERASE; J6C14Z; J1;
 7172/2: 171 370|300 016 010|200 156 175|042|304 000 005|036|225 156 213
                                                                       6;	C15; V4; J13!=Z; DUP; SET5; -; J14=Z;
                                                                       
                                                                       [ good84.txt 
                                                                       [ -- David H
                                                                       
 7175/0: 224 116 206                                                   13;   J8>Z;
 7175/3: 154 375|141 320|304 016 012|170 324|171 336|304 000 010|200 220 000|304 377 377|301 016 010
                                                                       10;   C15TOQ13; M-I13; SETAV6; =I13; Q13; SET8; OUT; SET-1; =V4;
 7201/2: 300 016 007|224 156 203|100 320|101 360|041|301 016 007             V3; J7=Z; M0M13; =M0M15; ZERO; =V3;
 7203/4: 300 016 004|170 376|300 016 005|170 356|300 016 006|170 336|200 360 000
                                                                       7;    V0; =Q15; V1; =Q14; V2; =Q13; EXIT1;
 7206/4: 304 377 302|103 320|304 000 030|301 016 012|203 276 175       8;    SET-62; =M0M13Q; SETB30; =V6; J10;
 7211/0: 052                                                           9;    ERASE;
 7211/1: 102 340|103 320|261 356 211|304 000 010|301 016 012|203 276 175
                                                                       15;   M0M14Q; =M0M13Q; J15C14NZ; SETB10; =V6; J10;
 7213/5: 052|171 322|301 016 011|204 276 203                           14;   ERASE; M13; =V5; J7;
=== Start P-1V-1; at address 3726
 7215/2: 017|017|017|017                                               *139; FINISH;
                                                                       
Reached end of file
